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

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
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 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 sschneid (Deacon) on Jun 14, 2002 at 15:07 UTC
    $parent = 000;

    my favorite line for sure. very entertaining.
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
      Thanx

      --
      arc_of_descent

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

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others avoiding work at the Monastery: (8)
As of 2014-07-11 10:37 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    When choosing user names for websites, I prefer to use:








    Results (224 votes), past polls