note
Fletch
<p>
73 (70 + 3 for the switches). The <code>\b</code>'s are pretty much unnecessary and using $& means you don't need parens.
</p>
<code>
#!/usr/bin/perl -nl
END{print map("$_ ($w{$_})\n",sort keys%w),$t}s/\w+/$w{$&}++;$t++/eg;
</code>
411197
411204