$ perl -le " print for grep /./, qw/ a b c /; "
a
b
c