ken@titan ~/tmp $ perle 'my $line; while ( (print "list of letters: "),$line=<>, $line !~ /\s*quit|exit|q\s*$/i) { print "doing something with $line\n"}' pm_11133571.dat list of letters: doing something with 234 list of letters: doing something with asdf list of letters: ken@titan ~/tmp