my $A = () = $seq =~ /A/ig;