Dirty Limerick -- Too Lewd for TPJ (Note: adult content)

[chipmunk]

Upon its submission to the Perl Journal Poetry Contest, this limerick was deemed too lewd for the pages of that esteemed publication! [*] Here's the poem that they don't want you to read!

* Disclaimer: Actually, KM's informal response was "Heh... I like it, but unfortunately I don't think CMP will print it :)". There was no communication from CMP regarding this poem.

Before proceeding, please be aware that this node contains language of a crude and sexual nature.

To read the limerick, select the area below.

#!perl $man = Man->new (from => 'Nantucket'); length($man->{dick}) and $man->suck($_); $man->say( do { $man->grin(); $man->wipe($man->{chin}); if (UNIVERSAL::isa($man->{ear}, 'cunt')) { $man->fuck($_) } } ); package Man; sub new { 'Man' } sub AUTOLOAD { } __END__ There once was a man from Nantucket Whose dick was so long he could suck it   He said with a grin   As he wiped off his chin "If my ear were a cunt I would fuck it."

[monkfish]

I thought it was funny! I was not offended, but for those who were, I submit the following poem for pizzacato lovers everywhere...

#!perl

$man = Man->new (from => 'Pawtucket');
length($man->{pick}) and $man->pluck($_);
  $man->say( do { $man->grin();
  $man->wipe($man->{violin});
if (UNIVERSAL::isa($man->{ear}, 'legato')) { $man->chuck($_) } } );

package Man;
sub new { 'Man' }
sub AUTOLOAD { }

__END__

There once was a man from Pawtucket
Whose pick was so long he could pluck it
He said with a grin
Wiping his violin
If my ear were legato I'd chuck it.

-monkfish (The Fishy Monk)