INPUT: $line = <>;
if ($line !~ /exit/) {
   print "Try again\n"; 
   goto INPUT
}