Was translated from Metallica's song "One" a slow afternoon at work.
I know some of it is rather forced (esp. some from second verse "Back in the womb..."), OTOH there's a few nice ones too. But you'll have to put up with it anyway since I'm rather new to Perl. Any input is appreciated. 
#!/opt/local/bin/perl

%Metallica{"One"};

$I_can_remember = 0;            
$Cant = "tell"; if(true || $DREAM) {} 
$Deep_down{"inside"} = "Feel to scream";
redirect(STDIN, "/dev/null") && die "!";
&War( $ME );
$awake = true; $vision = false;
$I = 0.0000001;
if (!/pain/) { $_ = "unreal"; }

sub breath { if ($WISH eq "Death") { sleep } };
0; $Prayer = "Please! Wake me!";

reverse ($Womb = "Much too real");
&Pump($life) > $I_Must_Feel;
if ($Look eq "forward") { $Look = "" }
$Look > ($Time = "When I\'ll live");
&fed() | $ME;
$ME = $Wartime_novelty;
&Tied($ME, $Machines); $Me = "be";
&Cut("this life",0,"me");

sub breath { if ($WISH eq "Death") { sleep } };
0; $Prayer = "Please! Wake me!";

NOW: { $World = 0; $I = 1; }
0; $Prayer = "Help me";
sub breath { if ($WISH eq "Death") { sleep } };
0; $Prayer = "Please " . $Prayer;

DARKNESS:
{ &Imprison($ME); }
$vision =
    "Absolute horror!";
$Life = false;
$Death = false;
sub Trap { $Myself; }
$Body = $Cell;

$landmine = "has";
foreach ("Sight", "Speech", "Hearing", "Arms", "Legs", "Soul") {
    "taken my " . $_;
}
$left_me = "with life in hell";

#I Can't Remember Anything
#Can't Tell If this Is True or Dream
#Deep down Inside I Feel to Scream
#this Terrible Silence Stops Me
#Now That the War Is Through with Me
#I'm Waking up I Can Not See
#That There Is Not Much Left of Me
#Nothing Is Real but Pain Now
#
#Hold My Breath as I Wish for Death
#Oh Please God,wake Me
#
#Back in the Womb its Much Too Real
#in Pumps Life That I must Feel
#but Can't Look Forward to Reveal
#Look to the Time When I'll Live
#Fed Through the Tube That Sticks in Me
#Just like a Wartime Novelty
#Tied to Machines That Make Me Be
#Cut this Life off from Me
#
#Hold My Breath as I Wish for Death
#Oh Please God,wake Me
#
#Now the World Is Gone I'm Just One
#Oh God,help Me
#Hold My Breath as I Wish for Death
#Oh Please God Help Me
#
#Darkness
#Imprisoning Me
#All That I See
#Absolute Horror
#I Cannot Live
#I Cannot Die
#Trapped in Myself
#Body My Holding Cell
#
#Landmine
#Has Taken My Sight
#Taken My Speech
#Taken My Hearing
#Taken My Arms
#Taken My Legs                        
#Taken My Soul                        
#Left Me with Life in Hell

[download]
/ Stormr

In reply to Metallica - One by Stormr

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.