Bohemian Rhapsody (part 1)

I'm trying to do the whole song, but here's part 1 to see what you think: UPDATE: Part 2

#!/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;
[download]

Comment on Bohemian Rhapsody (part 1) Download Code

Replies are listed 'Best First'.
Re: Bohemian Rhapsody (part 1) - Part 2 by katgirl (Hermit) on Jun 14, 2002 at 15:54 UTC
$i =~ s/ilhou/etto/; $man--; $dance{'fandango'}= 2$scaramouche; if($me =~ /thunderbolt/ && $me =~ /lightning/){ $frightening++; $frightening++; } $magnifico = ($gallileo 5) + $figaro; %me=("money"=>0,"love"=>0); $he{"family"}="poor"; $him = $his%$life; #note - modulus finds "spare" number... groan :) $from =~ m/onstrosity/; print "$i $come $i $go"; while($u le $t){$me => $go} &bismillah; while($not le $t, $u=>$go){ &bismillah; while($not le $t, $u=>$go){ &bismillah; while($not le $t, $u=>$go){ } } } if($will ne $ver && $will le $t){$me=>$go} print $no7; if(3($parent{'mia'}) le $t){$me=>$go} %beelzebub =(devil =>"aside"); for $me (@me) { for $me (@me) { for $me (@me) { } } } $headbang -> AirGuitar; if($u && $me =~ /stone/ and my $eye =~ /spit/){ if($u && $me =~ /love/ and $leave =~ m/e to/){ die; } } $o_baby != "this" => $me . $baby; $just{'gotta'} gt $out; while($just{'gotta'} gt $outta){ here; } $really[0] = $matters; $can{'c'} ne 1; $really[0] = $matters; $really[0] = $matters => $me; $anyway => $wind{"blows..."}; [download]	[reply] [d/l]
Re: Re: Bohemian Rhapsody (part 1) - Part 2 by arc_of_descent (Hermit) on Jun 18, 2002 at 12:21 UTC
Very Nice! I absolutely love it. How much time did you take? I have never written perl poetry and would love to start Thanx -- arc_of_descent	[reply]
Re: Bohemian Rhapsody (part 1) by SarahM (Monk) on Jun 13, 2002 at 19:32 UTC
This is really cool!!! I’ve never thought of using perl to write poetry before. I might have to give it a try.	[reply]
Re: Bohemian Rhapsody (part 1) by BrowserUk (Patriarch) on Jun 15, 2002 at 09:10 UTC
And all these years I have been singing: Miss Mil - ler! No-o, I will not let you go... Is there no end to the enlightenment that while come to me as a result of my visits to the Monastary??! Amazing work Katgirl	[reply]
Re: Bohemian Rhapsody (part 1) by mr2 (Friar) on Jun 13, 2002 at 16:43 UTC
a nice work ... i'd like to see the other part ... good work!	[reply]
Re: Bohemian Rhapsody (part 1) by sschneid (Deacon) on Jun 14, 2002 at 15:07 UTC
`$parent = 000;` my favorite line for sure. very entertaining.	[reply] [d/l]
Re: Bohemian Rhapsody (part 1) by Bishma (Beadle) on Jun 15, 2002 at 05:58 UTC
Oh, that's the funnoest thing I've seen in a while, `$little++; $little--;` [download] That's great.	[reply] [d/l]


Problems? Is your data what you think it is?
	PerlMonks