CountLetter.pl

From OrganicDesign Wiki

#
 
# countLetter( "string", "letter" ) returns number of occurences of "letter" in "string"
sub countLetter($$) { return scalar @{[ $_[0] =~ m/$_[1]/g ]} }