use strict;
while(1) {
    print "please enter a guess from 1 to 100: ";
    chomp(my $guess = <STDIN>);
    if ($guess =~ /quit|exit|^s*$/i)
    {
        print " sorry you gave up.the number was $secret.\n"; last;
    }
    elsif ($guess < $secret) {
        no strict;
        print "you failed \n";
    }
}