Select Code to Download

perl -le " print for grep 1 .. /Q/, @ARGV " a b c Q r s

$ perl -le " 1../Q/ and print for @ARGV " a b c Q r s

$ perl -le " for( @ARGV ){ print if 1 .. /Q/; }" a b c Q r s

$ perl -le " print for qw/ a b c Q r s / " > what

...
b
c
Q