my $A_count = ($sequence =~ tr/Aa/Aa/);