in reply to Re: Double interpolation of captured substrings
in thread Double interpolation of captured substrings

You could also allow for referencing the whole match as 0 with:

$str =~ $regex; my @matches = map substr( $str, $-[$_], $+[$_] - $-[$_] ), 0..$#-;