$seq = AAGAATGCCAGTTTGTAAGTACTGACTTTGGAAAA

sub dtNTfreq {

    my ($seq = '';
    my $AA = 0;

   while ($myseq =~ /(AA)/gi ){
	$AA =$AA+1;
   }