if(/^.*?\d+.*?(http:\/\/.*?)\/$php.*/) {
  # ok, what the f*ck. get out. just…out.
  # repeat everything above, just WORSE
  $h{$1}++;
}

Source: Direct link to the source code
Software: Perl Underground
Programming language: Perl

# How is education supposed to make me feel smarter? Besides,
# every time I learn something new, it pushes some old stuff
# out of my brain. Remember when I took that home winemaking
# course, and I forgot how to drive?

Source: Direct link to the source code
Software: Mojo
Programming language: Perl

my $i=1;
print “Server: $serv\nPort: $port\nSeconds: $time\n”;
# ever heard of for loops? we have them for this!
# there was this kid in a beginner’s c++ class I once taught
# he only used do-while loops, because he was afraid of for
# loop syntax and while was just too straight forward for
# him are you that kid? is for just too complex for you?
# moron
# for my $i ( 1 .. 51 )
while($i < 51){
 print ".";
 my $thr = new Thread \&exploit, $serv, $port, $time;
 $i++;
}

Source: Direct link to the source code
Software: Perl Underground
Programming language: Perl

# THE F*CKING PIECE OF SHIT THAT OUTPUTS ERRORS FOR PERL’S
# INHERITANCE IS TOTLALY F*CKING MESSED UP AND I DEARLY HATE
# IT AND THE TIME ITS WASTED ON MY LIFE!!!!!!!!!!!!!!!!!!
# this base thingy works, direclty modifing @ISA doens’t, and
# i don’t know why nor do i wanta waste more sweet figuring
# out why

Source: Direct link to the source code
Programming language : Perl

# !!!FIXME!!! This is slow. Sloooooow. Conceptually slow, but
# the implementation sucks badly, too. It is especially
# unnerving to me that the whole lexical scope of a myriad of
# intermediate result matrices and vectors is kept because we
# use closures. Closures are great, but not in bloated
# lexical scopes. How fix that without introducing either
# – an ugly additional method
# – ugly additional blocks to keep the scope clean. (Yuck!)

Source: Direct link to the source code
Software: META-spec
Programming language: Perl