in reply to Naughty Regular Expressions and mod_perl
A module, Devel::SawAmpersand, was mentioned that tells if the sawampersand flags was set. And Devel::FindAmpersand tells where it was set.