while( <> ) { while( /\b(\w+)\b/g ) { $w{$1}++; $t++; } }