All the Perl that's Practical to Extract and Report
http://www.perlmonks.org/?node_id=702405
It was a pain to debug and fix. Hope it will be useful to others as well.
