Select Code to Download

my $line;
while ( (print "list of letters: "),$line=<>, $line !~ /\s*quit|exit|q
+\s*$/i)
{..do something with this line...}