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

##</code><code>##

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