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

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

$xnick = $1;
$xident = $2;
$xhost = $3;
$xchannel = $4;
$xtext = $5;
# holy f*ck you line waster
# I’m calling the environment police, you’re killing ns

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

$a = num();
$b = num();
$c = num();
$d = num();
$dot = ‘.’;
$total = “$a$dot$b$dot$c$dot$d”;
##
# … HAHAHAHAHAHAHAH
# I haven’t laughed that hard since rave got owned in h0no3!!
# my $total = $a . “.” . $b . “.” . $c . “.” . $d;
##
return $total;

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

$proxy =~
m/(25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?).(25[0-5]|2[0-4]
[0-9]|[01]?[0-9][0-9]?).(25[0-5]|2[0-4][0-9]|[01]?[0-9]
[0-9]?).(25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?):([0-9][0-9]
[0-9][0-9])/ && print $con ‘privmsg $xnick :$1.$2.$3.$4:$5n’;

# Well well. Isn’t that a, uh, “interesting” regex

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