All the Perl that's Practical to Extract and Report
I was unhappy with the artifacts in the last image so I'm breaking my own rules and posting another image. ImageOriginal here