$totalcount += (split(/ /) - 1);

##</code><code>##

$totalcount += split(' ');

##</code><code>##

#!/usr/bin/perl -n
while (m/\w+/g) { $count++ }
END { print "count: $count\n" }