ch10 ex1.pl - numbers game

#!/usr/bin/perl -w
use strict;

my $number = int(1 + rand 100);
my $tries = 0;
print "\$number = $number\n\n";

while (print "Guess a number between 1 and 100: ") {
  chomp(my $guess = <STDIN>);
  if (($guess =~ /^\d+$/) && ($guess >= 0) && ($guess <= 100)) {
    $tries++;
    if ($guess != $number) {
      ($guess < $number) ? print "Hint: Go higher!\n" : print "Hint: Go lower!\n";
      print "Wrong Guess! Try again.\n\n";
      }
    else {
      print "You Win! The Secret Number was '$number'.\n";
      print "Number of Tries: $tries\n";
      last;
      }
    }
  elsif ( ($guess =~ /^$/) || ($guess =~ /(quit|exit)/gi) ) {
    print "User has entered nothing or has typed 'quit' or 'exit'. Exiting...\n";
    print "Number of Tries: $tries\n";
    last;
    }
  else {
    print "Invalid input!! Needs to be an integer between 1 and 100, try again!\n\n";
    }
  }

print "done.\n";

==================================================

[root@oc6351860106 ch10]# ./ex1.pl
$number = 31

Guess a number between 1 and 100: 22
Hint: Go higher!
Wrong Guess! Try again.

Guess a number between 1 and 100: 24
Hint: Go higher!
Wrong Guess! Try again.

Guess a number between 1 and 100: 35
Hint: Go lower!
Wrong Guess! Try again.

Guess a number between 1 and 100: 31
You Win! The Secret Number was '31'.
Number of Tries: 4
done.
[root@oc6351860106 ch10]# ./ex1.pl
$number = 67

Guess a number between 1 and 100:
User has entered nothing or has typed 'quit' or 'exit'. Exiting...
Number of Tries: 0
done.
[root@oc6351860106 ch10]# ./ex1.pl
$number = 77

Guess a number between 1 and 100: -2
Invalid input!! Needs to be an integer between 1 and 100, try again!

Guess a number between 1 and 100: fkoe
Invalid input!! Needs to be an integer between 1 and 100, try again!

Guess a number between 1 and 100: exit
User has entered nothing or has typed 'quit' or 'exit'. Exiting...
Number of Tries: 0
done.