There is such a beastie in The Perl Cookbook, and the code's available from the ORA website.

Philosophy can be made out of anything. Or less -- Jerry A. Fodor