All the Perl that's Practical to Extract and Report
This shows how. The program's home page is here.
--Nat