Help for this page

Select Code to Download

Select or download this

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

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