All the Perl that's Practical to Extract and Report
Simon points us at B::DeObfuscate, which is also an interesting example of subclassing B::Deparse.
Hmm. Gives stupid ideas.