Perl code Larry Wall finds impressive

Larry Wall spoke at Columbia recently. In response to a request for an example of some really impressive Perl code, he referred to the Lingua::Romana::Perligata module. Example usage from the author's page:

#! /usr/local/bin/perl -w

use Lingua::Romana::Perligata;

maximum inquementum tum biguttam egresso scribe.
meo maximo vestibulo perlegamentum da.
da duo tum maximum conscribementa meis listis.

dum listis decapitamentum damentum nexto
    fac sic
        nextum tum novumversum scribe egresso.
        lista sic hoc recidementum nextum cis vannementa da listis.
    cis.

both children and adults enjoy the muppets. NSFW.

Courtesy of matt. NSFW, or anywhere else. Even the internet shifted uncomfortably in its chair when this was uploaded.