Beefy Boxes and Bandwidth Generously Provided by pair Networks
Clear questions and runnable code
get the best and fastest answer

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;

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!!! Ive 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 avoiding work at the Monastery: (9)
As of 2021-01-19 09:56 GMT
Find Nodes?
    Voting Booth?