Make a codegolf scorer
Perl - 233

use LWP::Simple;for($s="http://codegolf.stackexchange.com",$h=get"$s/questions/@ARGV";$h=~/-answerid="(\d+).+?(&lt;div id="answer-|$)/sg;){$a=$&amp;;$i=$1;$_=$1,$_=~s/&amp;.+?;/@/sgm,print length."$u\t$s/a/$i/\n"while$a=~/&lt;pre&gt;&lt;code&gt;(.+?)&lt;/sg;}


More aerated version:

use LWP::Simple;
$s="http://codegolf.stackexchange.com";
$h=get"$s/questions/@ARGV";
for(;$h=~/-answerid="(\d+).+?(&lt;div id="answer-|$)/gs;){
    $a=$&amp;;
    $i=$1;
    while($a=~/&lt;pre&gt;&lt;code&gt;(.+?)&lt;/gs){
        $_=$1;
        $_=~s/&amp;.+?;/@/sgm;
        print length."$u\t$s/a/$i/\n"
    }
}


This is my first script in this language... so there's still probably a lot of golfing to do.