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

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