esp see
http://perl5.git.perl.org/perl.git/blob?f=regcomp.c#l65326524 if (rx && RXp_PAREN_NAMES(rx)) {
6525 HE *he_str = hv_fetch_ent( RXp_PAREN_NAMES(rx), namesv, 0
+, 0 );
6526 if (he_str) {
6527 IV i;
6528 SV* sv_dat=HeVAL(he_str);
6529 I32 *nums=(I32*)SvPVX(sv_dat);
6530 for ( i=0; i<SvIVX(sv_dat); i++ ) {
6531 if ((I32)(rx->nparens) >= nums[i]
6532 && rx->offs[nums[i]].start != -1
6533 && rx->offs[nums[i]].end != -1)
6534 {
6535 ret = newSVpvs("");
6536 CALLREG_NUMBUF_FETCH(r,nums[i],ret);
6537 if (!retarray)
6538 return ret;