All the Perl that's Practical to Extract and Report
Nothing like taking a week off your code to make debugging so much easier.
--Nat
(the problem: pushing $1 when it wasn't set. I'd split to a list of variables instead of using a pattern match. Changed my mind but not my code)