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