http://www.perlmonks.org?node_id=174135

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]

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

    [download]
[reply]
[d/l]

      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]

Back to Perl Poetry