In my feeble attempt to stop boredom today, I've ported Phish's song Fee to Perl. Mind you, methinks I got lazy in some parts, but for a first try, I dont think its too bad.

while($in{banana_tree}{cool_shade}){
$on = $trail{rugged};
$toward = "balcony";
$child{century} = "20";
$Goliath = dried('up');
$weasel{name} = "Fee";
}

$another_place = "Far Away";
fade($beauty{Milly});
$beauty{Milly}{Singer_type} = "gospel";
push(@$beauty{Milly}{Face},"pox");
keep_pace_with($cane{bamboo});

$Fee{Buddhist}{type} = "prodigy";
$age > $age_of_maturity;
Set_him_free('someday');
Like_id_did(for => $floyd_the_chimpanzee);

oh('fee');
$youre->trying("live a life thats completely $free");
$youre->racing('the wind');
$youre->flirt('death');
have($cup{coffee}) && catch($your->breath);

if (($time == 1)&&($bar == "Peru")){
    introduce($fee,$milly);
    $fee->heart('jump_like_a_kangaroo');
    $fee->heart = $dutch_zoo = 'old', cage('beast');
    hop($heart); thump($heart); $heart{shoes} = "wooden";
}

@floyd = (jealous, alone);
$floyd = his_own($Milly);
$floyd{bones} = "Desperate Craving";
$floyd->say("Their love, I will not condone.";

$then->one('day'); on('ship to Quebec');
$floyd->find(lovers_trek($Milly, $Fee));
pick_up($bottle); break($bottle{neck});
slice($air); $Fee->hit("the deck");

oh('fee');
$youre->trying("live a life thats completely $free");
$you->want("stay with $Milly") unless ($Fee{dead});
but($you->bottle('upside your head'));

turn($Milly); $Milly->scream($Floyd);
$Milly->say("I bet You think you're pretty mean");
$Milly->size = $string_bean{small};
slam($Floyd, $nectarine);

fall(over => 'edge of the ship', $Floyd);
$Floyd{hang_by} = "Fingertip";
$Milly->say("$Floyd, I'll make you loose your grip");
$Milly->say("With this tiny piece of paper, I can make you slip.");

$Milly->took('paper'); $Milly->did_the_deed;
hit_water($Floyd, "Astonishing speed");
circle($sharks); feed($sharks);
$Milly->knew("Her weasel was finally free");

oh('fee');
$youre->trying("live a life thats completely $free");
$Floyd = dead("Nothing but a ripple");
cuz($Milly->Slice($Floyd{nipple});

oh('fee');
$youre->trying("live a life thats completely $free");
$youre->racing('the wind');
$youre->flirt('death');
have($cup{coffee}) && catch($your->breath);

[download]


_14k4 - perlmonks@poorheart.com (www.poorheart.com)

In reply to Phish - Fee by one4k4

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.