LINE: while (<>) { $w += split /\W+/; END { print"$w $.\n" } }