I started searching and wandered upon a cool link. Tom Christiansen posted the source for Underscore.pm as well as a test script (both of which appear in the Camel).

Update! bikeNomad posted a similar one here and says it's from the Perl Cookbook.