how about this then? it splits on any non-word character, and takes acount for case.

my %counts;
while (<>) {
  $counts{ lc $_ }++ for split /\W+/;
}
print "$_: $counts{$_}\n" for sort keys %counts;
[download]