s{now}!icicl!es; s{n}{ow};
&then(1=>day, you=>awake);
m.ild. =~ winds; s%weet%flower%s;

 @gain{you=>awake};
blistering('heat'); time, 2, s~w~i~m;
 @gain{you=>slumber};

+@gain{you=>awake}
or ange; RED; y/ell/ow/; ! GREEN;
s{now}!icicl!es; s{n}{ow};

__END__

snow icicles snow
and then one day you awake
mild winds sweet flowers

again you awake
blistering heat time to swim
again you slumber

t'again you awake
orange, red, yellow, no green
snow icicles snow

Stanza 2 line 2 alternative:
(b,b,b)-ring('h'.chomp); time, 2, s~w~i~m;

[download]

--
perl -pew "s/\b;([mnst])/'$1/g"

Replies are listed 'Best First'.
Re: Junior High (3) Haiku
by emilford (Friar) on May 11, 2002 at 07:43 UTC
    I'm new to this type of crazy Perl poetry coding. Would you mind explaining how I run this? I attempted to copy all of the code exactly how it is into a file, but when I ran it I got several errors. What am I missing? It looks cool and I'm trying to figure it out.

    I Want To Learn :) Thanks -Eric
[reply]
      Ideally perl poertry should run, or at least compile. Though it almost never actually does anything. This will compile (perl -c), but won't run, for obvious reasons such as calling undefined subroutines.

      --
      perl -pew "s/\b;([mnst])/'$1/g"

[reply]

Back to Perl Poetry