$c = "ACCCTGATTGC";
$d = $c =~ tr/A/A/;
print $d; # prints 2