my $count=map $_, split;

##</code><code>##

my $count=+(split);  # ?!?

##</code><code>##

$ perl -lpe '$_=+(split)'
foo
1
bar baz
2