http://www.perlmonks.org?node_id=795694


in reply to Re^6: Regexp not capturing in named subrules
in thread Regexp not capturing in named subrules

I think the way God Intended patterns to be defined for later use is

    qr/(?(DEFINE)
          (?<name>pattern)
        )/x

[download]

In Section Seekers of Perl Wisdom