in reply to calling subroutines within a regular expression?

Hmmm... Seeing as REGEX is a regular expression in your example, why not just... 
# ...
if ($s =~ REGEX) {
    print "found\n";
}
# ...

[download]

In Section Seekers of Perl Wisdom