http://qs1969.pair.com?node_id=174594


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
    Thanx

    --
    arc_of_descent