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