All the Perl that's Practical to Extract and Report
The only change is a tiny, trivial efficiency improvement, but it's the excuse I needed to upload a new version and fix the damned filename after I kept fucking up when I uploaded it originally.
