Help for this page

Select Code to Download


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