perl -le 'print scalar map $_, qw(a b c)'
3