http://www.perlmonks.org?node_id=759263


in reply to Re^2: perlkhan 77
in thread perlkhan 77

For count you need 
$count{$letter} = ()= $$seq =~ m/$letter/g;

[download]

In Section Seekers of Perl Wisdom