Select Code to Download

$ alias perle
alias perle='perl -Mstrict -Mwarnings -Mautodie=:all -MCarp::Always -E
+'

$ cat > pm_11133571.dat
234
asdf
quit
ignore

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"}' p
+m_11133571.dat
...

list of letters:
ken@titan ~/tmp

$ cat > pm_11133571_2.dat
234
asdf
ignore

$ perle 'my $line; while ( (print "list of letters: "),$line=<>, $line
+ !~ /\s*quit|exit|q\s*$/i) { print "doing something with $line\n"}' p
+m_11133571_2.dat
list of letters: doing something with 234
...
 at -e line 1, <ARGV> line 3.
list of letters: doing something with
list of letters: