Here's a recent song by the Dave Matthews Band (both of which I like) in Perl. It compiles and runs, of course. Don't use anything silly like -w or strict, though. I enjoyed translating this song. 
END { exit }
you !~ /hope/ for me;
me > $_ for corners;
$^T = 'Infinity';

more:
$laughter = $tears{me} - $tears{you} and goto more;
$lies{wicked}{me} - $lies{wicked}{you},
eval { grep !$_->{pain}, @us },
$holders{you}{me}...??;

rand, @%, %*, rand, $},
/Will it rain today?/;
talk and talk for hours;
tr/a-z/b-za/ for grep $_->{playing}, @games;

@us = grep $_->{warringheart}, @a::allies;
$us[YOU], wild-eyed-beast...??;
$lies{wicked}{me} - $lies{wicked}{you},
eval { grep !$_->{pain}, @us },
$holders{you}{me}...??;
grep $_->{me}, values %holders...??;

print map "$_\r", grep
$rollercoaster{$_}, qw(/ | \ -);
went_off: $us[YOU], like => grep
$crowded && $_ eq devil, @church;
$love, eval
{ hope while $ship != down };

$location{$us[ME]} = $place{you}{smile} -
$place{you}{hide} if $us[ME]-get-to-go;
$hiding{$us[ME]} = $bullet{mine} - $bullet{yours},
wait for you;
grep($_->{falling}, @rain) => splash-in-your-heart,
ran, /sadness/i for @window;
$lies{wicked}{me} - $lies{wicked}{you},
eval { grep !$_->{pain}, @us },
$us[YOU] = my($hand), goto out_of_here;
oh, right; out_of_here: reset 'a-zA-Z'; $love = 1;

$location{me}{hiding} = $wrong - $right,
wait for you;
$_ = time for
@_[$heart{yours} .. $heart{mine}];
?? - ??;

[download]

_____________________________________________________
Jeff[japhy]Pinyan: Perl, regex, and perl hacker.
s++=END;++y(;-P)}y js++=;shajsj<++y(p-q)}?print:??;

In reply to The Difference (Dave Matthews) 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.