Bloglines Unsubscriber

色々な人のアンテナをRSSAutodiscoveryしてOPMLにしてBloglinesにインポートしたら1280 Subscriptionsとかいう状態になってしまうわ、JavaScriptエラーが出て削除できないわで、

#!/usr/bin/perl

use strict;
use WWW::Mechanize;

my $mech = WWW::Mechanize->new();
$mech->get('http://www.bloglines.com/login');
$mech->field('email','email_address');
$mech->field('password','login_password');
$mech->submit();
$mech->get('http://www.bloglines.com/myblogs_subs?');
my $list = $mech->content;
my $i = 0;
my $args;
while ($list =~ s/subid(\d+)//) {
    $args .= "&br.$i=$1";
    $i++;
    if ($i > 50) {
        $mech->get("http://www.bloglines.com/manage_subs?si=0$args");
        $i=0;
        $args = '';
    }
}
$mech->get("http://www.bloglines.com/manage_subs?si=0$args");

というスクリプトをでっちあげて全部削除中。半分位終わったようです。
全部消せるようなのでスクリプトを変更。
なにやってんだか…。
とにかくWWW::Mechanizeベンリ!
ごめんなさい。もうしません…。