>perl -wMstrict -le
"my $sequence = 'GGGGGGGAGAAAAAAAAAAAAAAAGAAGGA';

 my %patterns =
   map { $_ => { count => 0,  regex => qr{ (?= \Q$_\E) }xms } }
   qw(AAAAA GGGGG GGAGA GAAGG)
   ;

 $_->{count} =()= $sequence =~ m{ $_->{regex} }xmsg
     for values %patterns;

 print qq{$_: $patterns{$_}{count}} for sort keys %patterns;
"
AAAAA: 11
GAAGG: 1
GGAGA: 1
GGGGG: 3