Select Code to Download

@letters = (A,B,C,D,E,F);

$string = "AFTYUBEWTWECRTUTYIYTDDDDRYJURTHJTREEEEEFGSDFF";

foreach $a(@letters)
{
$count = ($string = ~tr/$a//);
print $count;
}