You could recompile Perl if you want if you make the adjustment to the source code. Or you could change the way the regex is written.

_____________________________________________________
Jeff[japhy]Pinyan: Perl, regex, and perl hacker.
s++=END;++y(;-P)}y js++=;shajsj<++y(p-q)}?print:??;