perl -lane '$c+=@F}{print $c' file