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__

[download]
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."

Replies are listed 'Best First'.
Re: Dirty Limerick -- Cleaned Up!
by monkfish (Pilgrim) on Oct 14, 2001 at 02:00 UTC
    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__

    [download]
    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)

[reply]
[d/l]
A reply falls below the community's threshold of quality. You may see it by logging in.

Back to Perl Poetry