Re^2: Golf: Count unique words

[Fletch]

73 (70 + 3 for the switches). The \b's are pretty much unnecessary and using $& means you don't need parens.

#!/usr/bin/perl -nl
END{print map("$_ ($w{$_})\n",sort keys%w),$t}s/\w+/$w{$&}++;$t++/eg;

[eyepopslikeamosquito]

Sh?aving seven strokes:

#!/usr/bin/perl -lp
++$t,++$w{$_}for/\w+/g}for(map("$_ ($w{$_})",sort keys%w),$t){