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

##</code><code>##

$ 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


##</code><code>##

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

$ perl -ne " print if 1 .. /Q/; " < what
a
b
c
Q