You brought up the same point as what was suggested by Hugo and Jarkko, and I'm pleased to present a modified version of the pragma. It comes with one caveat: please do not do no re::ampersand unless you're aware of the consequences. If you do that, then any $& found in the no re::ampersand block will set the PL_sawampersand flag for your program. This doesn't sound like a good idea to me, so I advise against using it. I'm still trying to find some way to make PL_sawampersand work like a stack somehow... so that the no re::ampersand doesn't leak like that.

Check out New $& Approach, thanks to Hugo, Jarkko, Tye, and others.

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