while ( (print "Prompt: "), $line=<STDIN>, $line !~ /^\s*Q(uit)?\s*$/i )