+
+my %rx_idx;
+BEGIN {
+ %rx_idx = (
+ q[$`] => -2,
+ q[$'] => -1,
+ q[$&] => 0,
+ );
+ if ("$]" >= 5.017_004) {
+ $rx_idx{q[${^PREMATCH}]} = -5;
+ $rx_idx{q[${^POSTMATCH}]} = -4;
+ $rx_idx{q[${^MATCH}]} = -3;
+ } else {
+ $rx_idx{q[${^PREMATCH}]} = $rx_idx{q[$`]};
+ $rx_idx{q[${^POSTMATCH}]} = $rx_idx{q[$']};
+ $rx_idx{q[${^MATCH}]} = $rx_idx{q[$&]};
+ }
+}
+