Beefy Boxes and Bandwidth Generously Provided by pair Networks
We don't bite newbies here... much

Re: Bohemian Rhapsody (part 1) - Part 2

by katgirl (Hermit)
on Jun 14, 2002 at 15:54 UTC ( #174594=note: print w/replies, xml ) Need Help??

in reply to Bohemian Rhapsody (part 1)

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

Replies are listed 'Best First'.
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


Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://174594]
[stevieb]: I'm having issues finding an arduino library that does the right thing for my gps... five hours now. I'm going to just write my own parser

How do I use this? | Other CB clients
Other Users?
Others having an uproarious good time at the Monastery: (6)
As of 2017-05-28 17:50 GMT
Find Nodes?
    Voting Booth?