Select Code to Download

while ( ... )
{
    ...
...
    # add later.
    pos() = $-[0] + 1;
}

while ( /($regex)/gx )
{
    push @substrings,
...
    # Restart the checking at one character after the match started.
    pos() = $-[0] + 1;
}