All the Perl that's Practical to Extract and Report
I know this is slightly old news and has already made the rounds but I found it interesting and worth reading if you haven't already.