# works like wc
perl -ne 's/\s+/$i++/eg;END{print "$i\n"}' f1 f2