Perl

Counting the Number of Times a Character Occurs in a String
http://effectiveperl.blogspot.com/2006/01/idiomatic-perl-counting-number-of.html