This one's lengthy! 
Hey, $Life = $I,           # Hey, I'm your life,
$ENV{USER} = $I.           # I'm the one who takes you there.
Hey, $Your = $I,           # Hey, I'm your life,
(caller(1))[3] eq $I.      # I'm the one who cares.
They? They betray :        # They, they betray,
($friends{true} = [$I]);   # I'm your only true friend now.
They? They:ll betray       # They, they betray,
END { $I = 1 };            # I'm forever there.


$Dream = $I,               # I'm your dream,
  $you = real,             # Make you real,
@Eyes = @$I                # I'm your eyes
  if $you & $steal;        # When you must steal,
$Pain = $I                 # I'm your pain
  if $you & ~$feel;        # When you can't feel.
sad, but true.             # Sad but true!

($Dream = $I),             # I'm your dream,
  unlink mind,             # Mind astray,
@Eyes = @$I                # I'm your eyes
  while you're-away;       # While you're away,
$Pain = $I                 # I'm your pain
  while $money;            # While you repay
you-know ?                 # You know
  it's sad but true:       # It's sad but true!


You, my($mask) = $You,     # You, you're my mask,
my ($cover,$shelter) =     # You're my cover
  ($You) x 2;              #   my shelter.
You, my($mask) = $You,     # You, you're my mask,
$blamed = $You.            # You're the one who's blamed.
do { do { my $work } },    # Do, do my work,
do { my ($dirty, $work) }, # Do my dirty work
  scapegoat,               #   scapegoat!
do { do { my $deeds } }    # Do, do my deeds,
for you're-the-one .       # For you're the one
  who's-$blamed;           # You're the one who's blamed.  


$Dream = $I,               # I'm your dream,
  $you = real,             # Make you real,
@Eyes = @$I                # I'm your eyes  
  if $you & $steal;        # When you must steal,
$Pain = $I                 # I'm your pain
  if $you & ~$feel;        # When you can't feel.
sad, but true.             # Sad but true!
  
($Dream = $I),             # I'm your dream,
  unlink mind,             # Mind astray,
@Eyes = @$I                # I'm your eyes  
  while you're-away;       # While you're away,
$Pain = $I                 # I'm your pain
  while $money;            # While you repay   
you-know ?                 # You know
  it's sad but true:       # It's sad but true!

  
Hate; $Hate = $I,          # Hate, I'm your hate,
$Hate = $I if wantlove;    # I'm your hate when you want love.
Pay ? pay: the price,      # Pay, pay the price, 
Pay, for nothing's-fair;   # Pay, for nothing's fair.
Hey, $Life = $I;           # Hey, I'm your life,
$ENV{USER} eq $I;          # I'm the one who took you there.
Hey: { $Life = $I          # Hey, I'm your life,
and (caller(1))[3] ne $I } # And I no longer care!


$Dream = $I,               # I'm your dream,
  $you = real,             # Make you real,
@Eyes = @$I                # I'm your eyes
  if $you & $steal;        # When you must steal,
$Pain = $I                 # I'm your pain
  if $you & ~$feel;        # When you can't feel.
sad, but... true.          # Sad but true! 

($Truth = $I),             # I'm your truth
  tell LIES,               # Telling lies,
$@ = $I,                   # I'm your reason,
  alibis,                  # Alibis,
{ $I } -                   # I'm inside
  open your, eyes;         # Open your eyes 
$You = $I ?                # I'm you!
sad but: true;             # Sad but true!

[download]


japhy -- Perl and Regex Hacker

In reply to More Metallica: Sad But True by japhy

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.