$Acount = $line =~ tr/A/A/;