poem atcroft <P>This is my first attempt at [perl poetry], so please consider that. <P>Inspired by [katgirl]'s excellent [id://174135] (and [id://174594|part 2]), I attempted the following, an attempt at "<A HREF="http://www.allfloyd.com/lyrics/DSOTM.html">Eclipse</A>" from <EM>The Dark Side of the Moon</EM> by Pink Floyd, written by Roger Waters. (Good song-I can only claim the any bugs in the interpretation. My appreciation to all those where were in the [ChatterBox FAQ|CB] who helped with some questions while I was attempting to code this.) <CODE> %All; %Everyone; %Everything; $light = "sun"; @all_that_you = qw(touch see taste feel love hate give deal buy beg borrow steal do say eat slight); @all_you = qw(feel distrust save create destroy); @everyone_you = qw(meet fight); @all_that_is = qw(now gone to_come); @everything_under = ("the sun"); @All{@all_that_you, @all_you, @all_that_is} = ("in tune") x (@all_that_you, @all_you, @all_that_is); @Everyone{@everyone_you} = ("in tune") x @everyone_you; @Everything{@everything_under} = ("in tune") x @everything_under; my $light = "moon"; $dark_side_of_the_moon = undef; $all = "dark"; </CODE> <P><B>Update</B>: Found and added link to page containing lyrics after someone suggested that it might be hard to follow for someone unfamiliar with the lyrics. Enjoy.