until ($guess eq $secret_number) {
    print "\nEnter a number between 1 and 100 : ";
    chomp($guess = <STDIN>);
    if ($guess =~ /quit|exit|^\s*$/i) {
        $quit = "yes";
        last
    }
    my $answer = ($guess < $secret_number) ? "less than" :
                 ($guess > $secret_number) ? "greater than":
                                             "";
   print "\nThe number you entered is $answer the secret number.\n";
}