in reply to Numerical Regular Expression for pattern match

Have you considered utilizing Regexp::Common? This gargantuan module is almost omnipotent :-)
--
seek $her, $from, $everywhere if exists $true{love};

In Section Seekers of Perl Wisdom