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

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