The magic is only there for qr//'ed regexes. If you read it from the file, it's just a string. You'll have to re-qr// it for any gains. But I think you're wasting effort on this. Maybe not.

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