Select Code to Download

use strict;
use warnings;
...
    eval "\$count = \$string =~ tr/$a//";
    print "$count\n";
}

$count = $string =~ s/$a//g;

my %count;
$count{$_}++ foreach split //, $string;
print "$count{$_}\n" foreach (@letters);