Beefy Boxes and Bandwidth Generously Provided by pair Networks
Your skill will accomplish
what the force of many cannot

Bohemian Rhapsody (part 1)

by katgirl (Hermit)
on Jun 13, 2002 at 09:59 UTC ( #174135=poem: print w/ replies, xml ) Need Help??

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;

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 $no*7; 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..."};

      Very Nice!
      I absolutely love it.
      How much time did you take?
      I have never written perl poetry and would love
      to start


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.
Re: Bohemian Rhapsody (part 1)
by BrowserUk (Pope) 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

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!
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.
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--;
    That's great.

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: poem [id://174135]
Approved by vagnerr
Front-paged by SparkeyG
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others studying the Monastery: (7)
As of 2015-10-13 21:34 GMT
Find Nodes?
    Voting Booth?

    Does Humor Belong in Programming?

    Results (316 votes), past polls