Select Code to Download

use v5.12;
use List::Util qw(sum);
...
my @dipept = qw( AABBCC AABBAA );
my $count  = sum map { scalar(my @r = /AA/g) } @dipept;
say $count;