in reply to Getting the count of a particular alphabet using subroutine

See also this FAQ from perlfaq4: 
perldoc -q count

[download]

In Section Seekers of Perl Wisdom