my $d = ($n =~ /A/g)