Help for this page

Select Code to Download

Select or download this

$_ = "aaaaa";
while (/aa/g) {
    print "Match at $-[0]\n";
    pos = $-[0] + 1;
}