poem
katgirl
I'm trying to do the whole song, but here's part 1 to see what you think: UPDATE: [http://www.perlmonks.com/index.pl?node_id=174594|Part 2]
<code>
#!/usr/bin/perl
require(AirGuitar);
if($this eq "real life" | "just fantasy"){
$caught = $in{'a-landslide'};
$no = "\from reality";
}
open (YOUR, "$eyes");
$look++ => "the skies" && "c";
$money = 0;
$sympathy=0;
while ($i, $come, $i, $go){ $i = "easy" }
$little++;
$little--;
if ($wind = "blows") { !$matter => me }
$parent = "female";
$me = "murderer";
$gun = head{'man'};
&pull_trigger;
if($gun eq "loaded"){ die('man') }
tell($parent) => $life = "short";
$life = undef;
$parent .- $tears;
if (!$back eq this(time)){ $day .+1; }
{ print "Carry on"; redo; }
$matter = 0;
if($now eq "too late"){ my $time => "come";}
my $spine = $shivers--;
$body = $aching . all{'the(time)'};
tell(all) => "bye bye";
@you <= "leave";
$face =~ tr/u/th/;
$parent = 000;
$i != "want" => die;
$i => some(time). s/never/born/ . @all;
</code>