#!/usr/bin/perl
use strict;
use warnings;

my @real_count = (0,0,0,0);
my $sequence = "GGGGGGGAGAAAAAAAAAAAAAAAGAAGGA";
my @pattern;
$pattern[0] = "A(?=AAAA)";
$pattern[1] = "G(?=GGGG)";
$pattern[2] = "G(?=GAGA)";
$pattern[3] = "G(?=AAGG)";

foreach my $i (0..$#pattern) {
    $real_count[$i]++ while ($sequence =~ /$pattern[$i]/g);
}

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