my $count  = 0;
    my $string = "AAAA";

    $count++ while $string =~ /\GAA/gc;