while (<>) { @_ = split; $wc += @_ }
print "counted $wc white-space-delimited tokens\n";