in reply to The Top 10 Perl/Programming Songs of All Time

So long at it seems to be mostly bad puns, let's see if anyone can recognize the bands/songs from the code snippets:

!( $this->isa( 'exit' )) until ($brooklyn) { } continue { sleep() } while ($america) { $america->DESTROY } `touch evil` @ways_to_die == 99 @fix == 1 $self->name eq 'mud' 7 + 7 == die unless $too_tough; if ( $you->buy('cd') ) { $self->get('porche') } require 'English' || die (! $self->believe() ) $technicolor->blur() $self == $hell

And, for the case of no real code involved, but search engines probably won't help you: (okay, with the one word names, there's probably more than one artist who have songs with these titles)

time if $pass && $fail split Test use less sleep push

I guess one hint -- they're in alphabetical order by artist name (as I just browsed through my listings)

Update: well, no one seems to have tried guessing in the ~40hrs it was up, so here are the answers:

Anthrax (This is not an Exit)!( $this->isa( 'exit' ))
Beastie Boys (No Sleep 'til Brooklyn)until ($brooklyn) { } continue { sleep() }
GWAR (America Must Be Destroyed)while ($america) { $america->DESTROY }
Judas Priest (Touch of Evil)`touch evil`
Megadeth (99 Ways to Die)@ways_to_die == 99
Ministry (Just one Fix)@fix == 1
Primus (My Name is Mud)$self->name eq 'mud'
Ramones (7 and 7 is)7 + 7 ==
Ramones (Too Tough to Die)die unless $too_tough;
Robert Schimmel (If You Buy My CD I Can Get a Porche)if ( $you->buy('cd') ) { $self->get('porche') }
S.O.D. (Speak English or Die)require 'English' || die
Stabbing Westward (I don't Believe)(! $self->believe() )
White Zombie (Blur the Technicolor)$technicolor->blur()
White Zombie (I am Hell)$self == $hell
...
Anthrax (Time)time
Gravity Kills (If)if
Heartless Bastards (Pass and Fail)$pass && $fail
KMFDM (Split)split
Prong (Test)Test
Skinny Puppy (Use Less)use less
Stabbing Westward (Sleep)sleep
Supafuzz (Push)push