Javascript だらけの世の中で w3m 使いが少しは快適に生活できるかもしれない local cgi

はてなダイアリーはまぞうでの検索(リンクの挿入はできません)と mixiマイミクシィ最新日記はどうにか使えるようになります。
余計なリンクが沢山できることは気にしないで下さい。
改善案などあったら教えて下さい。

#!/usr/local/bin/perl
#
# keymap KEY GOTO file:/cgi-bin/スクリプト名
#
$type = $ENV{W3M_TYPE};
$charset = $ENV{W3M_CHARSET};
$url = $ENV{W3M_URL};
$file = $ENV{W3M_SOURCEFILE};
 -f $file || exit;
$| = 1;
print <<EOF;
Content-Type: $type; charset=$charset

EOF
if ($type =~ /^text\/html/i && $url){
        print "<base href=\"$url\">\n";
}
if ($file =~ /\.gz$/i ){
        open(IN, "/usr/bin/zcat $file |");
}else{
        open(IN, "< $file");
}
while (<IN>){
        if($_ =~ /<(a|input)\s+[^>]*(href|onclick)\s*=\s*"javascript:.*>/i){
                print $_;
                $temp = $_;
                while($temp =~ /'([^'"]*)'/){
                        print "<a href=\"$1\">$1</a>";
                        $temp = $';
                }
        }else{
                print $_;
        }
}
close(IN);