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