ActiveState's Perl Haiku contest winners:
http://aspn.activestate.com/ASPN/Perl/Haiku/InPerl
Two that I like:
@in = my ($english, $class);
$they = tell (me); not to_ever;
split /infinitives/;
open OYSTER; chomp;
unpack("$perfect", $gem);
seek(OYSTER, $perl, 1);