while (<>) { @words = split /\W+/; $words += @words; } print "lines -> $.\nwords -> $words\n";