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
/ Stormr