use warnings;
use strict;

use re 'eval';

my @real_count = (0,0,0,0);
my $sequence = "GGGGGGGAGAAAAAAAAAAAAAAAGAAGGA";
my @pattern;
$pattern[0] = "AAAAA";
$pattern[1] = "GGGGG";
$pattern[2] = "GGAGA";
$pattern[3] = "GAAGG";

for (my $i=0; $i <= 3; $i++) {
    $sequence =~ /$pattern[$i](?{$real_count[$i]++})(?!)/;
}

foreach (@real_count) {
    print "$_\n";

  ## prints
  ## 11
  ## 3
  ## 1
  ## 1


}