$str = 'ABABAABBA';
$count = $str =~ tr/A//;  # $a = 5;