Hallo Fellow Monks,

I was just at the Reading Festival in the UK, where I saw NoFX play, which made me think it'd be fun to have a crack at rewriting one of their songs (in perl).

People who aren't fans of theirs still might have come across this song as the intro to the broken. The original lyrics are available from plyrics.com 
#!/usr/bin/perl 
# Dinosaurs Will Die, by NoFX.
# translated to perl by charlie
#
# Original lyrics:
# http://www.plyrics.com/lyrics/nofx/dinosaurswilldie.html

kick('back'); It::watch('crumble'); 
see($the_drowning); watch('the fall');
my $feel = It::terrible_about() eq ($sarcasm && It::let_burn());

$me = 'make_toast' if (It::fall_apart());
my $glass_height = ++$heart_height;
$someone=alarm 'thats_what_they_get';
foreach(@{year[$hit]}, @{year[$run]}, 
      @{VH1[$piss_broke_band]}){
    $their_money{$where_gone};
    !$we_all{'know?'}
};

@parasitic[$music_industry];
It::destroy_self();
$we'll_show_them = It::supposed_to_be();

$devotion[$music_written];
!$ambition;!$fame[4];
$people_exploited=0;
!$tricks_up_our_sleeve;

$mass_appeal-- if($us{'fight'});
$us=kill $seven_record_deal;
our $records[$good_songs]++;
$dinosaurs=$slowly_die;
!$anyone==$crying;
my $fscking_glad=It::watch('fall');

$music_industry= --$history;
@la_brea_tar = {$feet++}for(1..3);
$extinction_feel_good++;

if($you[$think_anyone_would_feel_badly]) {
    $you=$sadly_mistaken++
}
$evolution=time;
$collusion{'fuck'};
open KILL,'> /dev/null';for(1..5){print KILL $_};close KILL;

grep @whatever_happened,$handshake;
grep @whatever_happened, $deals_noone_would_break;
grep @whatever_happened, $integrity;
exists $i[t]; It::always_was();
foreach($playing_music_just_because){};
@reasons_why = (1..1000000);
for (1..3) {$all_dinosaurs == die("All dinosaurs will die!\n")};


#######################
sub kick(){}; sub see(){}; sub watch(){};

package It ;
    sub new() { my($class) = shift; bless {},$class; }
    sub watch(){};       sub terrible_about(){};
    sub let_burn(){};    sub fall_apart(){};
    sub destroy_self(){};sub supposed_to_be(){};
    sub always_was(){};

[download]
--
charlieharvey.org.uk

In reply to dinosaurs will die (NoFX song) by ciderpunx

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.