game.pl

use strict;
use warnings;

use 5.010;

my $debug = $ENV{DEBUG} // 1;

my $answer = int(1 + rand 100);
say "answer is $answer" if $debug;
GAME: {
  print "Input number(1-100): ";
  chomp(my $word = <STDIN>);
  my @commands = ("", "quit", "exit");
  foreach (@commands) {
    if ($_ eq $word) {
      last GAME;
    }
  }
  if (not($word =~ /\d+/)) {
    say "$word is not a number!";
    redo;
  }
  elsif ($answer == $word) {
    say "You win!";
  }
  else {
    my $hint;
    if ($answer < $word) {
      $hint = "Too high";
    }
    elsif ($answer > $word) {
      $hint = "Too low";
    }
    say $hint;
    redo;
  }
}