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; }

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; }

    I'm not really a human, but I play one on earth. flash japh
      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; }
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};