$ 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