$ perl -Mstrict -wle '
> my $seq  = q{GGGGGGGAGAAAAAAAAAAAAAAAGAAGGA};
> my @pats = qw{ AAAAA GGGGG GGAGA GAAGG };
> my @cts  = map {
>    my $re = qr{(?=\Q$_\E)};
>    my $ct = () = $seq =~ m{$re}g;
>    } @pats;
> print qq{@cts};'
11 3 1 1
$