Select Code to Download

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

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

$ perl -le " ( $foo ) = grep /./, qw/ a b c /;  print $foo "
a

$ perl -le " print( ( grep /./, qw/ a b c /  )[0] ); "
a