This is my first attempt. Sorry :-)
#!/usr/bin/perl she->controls(me); each(night); while(i){ sleep; } $i==dream(of(her)); do (i==love(her)); yes; do (i==tell(her)); yes; while (i==(do tell(her))){ (she(laughs)); } my $embarrassment=="high"; my $confidence=="low"; dump(jon); break(heart); will (i==die "a lonely man"); eval(my $sanity); my $situation=="is not so bad"; foreach $beer("i","drink"){ drowns(my $sorrows); } sleep;

Replies are listed 'Best First'.
RE: Love
by redmist (Deacon) on Jun 14, 2000 at 15:06 UTC
    My favorite part is:

    foreach $beer ("i", "drink") {
    drowns(my $sorrows);
    }

    redmist
RE: Love
by Anonymous Monk on Jun 13, 2000 at 07:58 UTC
    I like your poem, PERL poetic! My name is Joni. My friends call me jon. And oh no, dump(jon)! :)
(zdog) RE: Love
by zdog (Priest) on Jun 06, 2000 at 07:16 UTC
    That's a good one. I especially like the part that goes:
    my $embarrassment=="high"; my $confidence=="low";

    I feel it adds a nice touch. I also like the part about beer and sleep, they go together nicely, don't they?

    -- zdog (Zenon Zabinski)
       Go Bells!!

      erm, shouldnt those be my $embarassment eq "high"; and my $confidence eq "low" respectively? alex
RE: Love
by Anonymous Monk on Jun 18, 2000 at 18:41 UTC
    cool me thinx it's real clever!!!
RE: Love
by Anonymous Monk on Jul 12, 2000 at 05:34 UTC
    It's cool....