use strict;
while (<INPUT>) {
   # $_ is implied by default.
   my @lineinfo = split;
   print "LEN: ",scalar(@lineinfo),"\n";
}