Hi all,

I've always been fascinated with Perl's ability to resemble a real spoken languange so here is my first Perl poem ever.

It is a bit naive, but I'm a not a poet :-) 
while( exists $true{love} ) {
  seek $her, $from, $everywhere;
}

[download]

Replies are listed 'Best First'.
Re: My first Perl poem!
by zentara (Cardinal) on Mar 29, 2006 at 11:39 UTC
    It's Spring, and the hormonal chemicals are causing delusions amoung the young. Here is an undeluded version. (for jaded old men, who ain't feeling it anymore ;-( ) 
    if ( exists $true{love} ) {
   $get_it_while_you_can = 1;
  seek $her, $from, $everywhere;
}
else{
  seek $him, $for, $everything;
  $him_need_a_lawyer = 1;
}

    [download]
    I'm not really a human, but I play one on earth. flash japh
[reply]
[d/l]
      Hmm, 28 year old, father of one, does not count as a jaded old man? Well, maybe not but I do feel jaded and old :-)

      But here is even more gloomy one: 
      if ( exists $true{love} ) {
  $get_it_while_you_can = 1;
  seek $her, $from, $everywhere;
}
else{
  seek $him, $for, $everything 
    and delete @children{ qw(from fathers life) };
  $him_need_a_lawyer = 1;
}

      [download]
[reply]
[d/l]
Re: My first Perl poem!
by puudeli (Pilgrim) on Mar 29, 2006 at 08:07 UTC
    Or maybe better written as 
    seek $her, $from, $everywhere if exists $true{love};

    [download]
[reply]
[d/l]

Back to Perl Poetry