http://qs1969.pair.com?node_id=174995

This is my first attempt at perl poetry, so please consider that.

Inspired by katgirl's excellent Bohemian Rhapsody (part 1) (and part 2), I attempted the following, an attempt at "Eclipse" from The Dark Side of the Moon 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 CB who helped with some questions while I was attempting to code this.)

%All; %Everyone; %Everything; $light = "sun"; @all_that_you = qw(touch see taste feel love hate give deal buy beg bo +rrow 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";

Update: 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.