Help for this page
$seq = AAGAATGCCAGTTTGTAAGTACTGACTTTGGAAAA sub dtNTfreq { ... while ($myseq =~ /(AA)/gi ){ $AA =$AA+1; }
[AA] [AA] or A [AA] A