All the Perl that's Practical to Extract and Report
It is somewhat serendipitous how when the right design falls into place, the code gets really simple and refactoring becomes a matter of removing the noise and leaving the signal.