my $count  = scalar map { /AA/g } @dipept;