Dave Cross posted this to the London perlmongers list, showing the evolution of a hairy piece of code. He ended by saying he was afraid to put it into production.
What a wuss. If it works, and it doesn't use experimental Perl features, and it's written readably, put it in!
--Nat