my $d = ($n =~ tr/A//);