<>= if ($response eq 'q') { # set loop control to indicate the user has quit $quit = 1; } elsif ($response = $solution) { print "Correct\n"; } else { print "Incorrect: $question $solution\n"; }