use strict;
use warnings;

my $secret=42;
my $guess;
while(1) {
  print "please enter a guess from 1 to 100: ";
  chomp($guess = <STDIN>);
  if ($guess =~ /quit|exit|^s*$/i){
    print " sorry you gave up.the number was $secret.\n"; last;
  }
  if ($guess != $secret) {
    print "Wrong! Guess again.\n";
  }else{
    print "Correct!\n";
    last;
  }
}