All the Perl that's Practical to Extract and Report
The article explains it all! http://carcino.gen.nz/images/index.php/42e23aa3/122e885f