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]