note eyepopslikeamosquito <P>Sh?aving seven strokes:</P> <CODE> #!/usr/bin/perl -lp ++$t,++$w{$_}for/\w+/g}for(map("$_ ($w{$_})",sort keys%w),$t){ </CODE> 411197 411209