Parse output from http://forums.bukkit.org/members/?page=$i and sort by number of likes.

get.pl

#!/usr/bin/perl

use strict;

for my $i (1..16420) {
        system("wget -O data/bf.$i.html 'http://forums.bukkit.org/members/?page=$i'");
        sleep 2;
}

likes.pl

#!/usr/bin/perl
#
use strict;

open (FILE, "zcat data/big.list.gz|") or die $!;

my %hash = {};
while (<FILE>) {
  if (/something posted by (.*?) has been 'liked'">Likes Received.*?<dd>(.*?)<\/dd>/) {
    $hash{$1} = $2;
    $hash{$1} =~ s/,//g;
  }
}
close FILE;

sub hashValueDescendingNum {
   $hash{$b} <=> $hash{$a};
}

my $count = 1;
foreach my $key (sort hashValueDescendingNum (keys(%hash))) {
   print "$count: $hash{$key} $key\n";
   $count ++;
}

messages.pl

#!/usr/bin/perl
#
use strict;

open (FILE, "zcat data/big.list.gz|") or die $!;

my %hash = {};
while (<FILE>) {
  if (/<dt title="Total messages posted by (.*?)">Messages:<\/dt> <dd>(.*?)<\/dd>/) {
    $hash{$1} = $2;
    $hash{$1} =~ s/,//g;
  }
}
close FILE;

sub hashValueDescendingNum {
   $hash{$b} <=> $hash{$a};
}

my $count = 1;
foreach my $key (sort hashValueDescendingNum (keys(%hash))) {
   print "$count: $hash{$key} $key\n";
   $count ++;
}