オトナ買いチェッカー（を作りたい）

自分で作ろうと思ったんだけど作れなかったので、ヘルプをお願いします！

いずれはちゃんと予算を取ってサイトの機能として提供するつもりなんだけど、自分が今すぐほしくてしょうがないので。

要は、オトナ買いで全部揃ったら（メールかRSSで）アラートを飛ばしてくれるツールです。

ブックオフオンラインではオトナ買いのページに必ずこういう感じで購入可能冊数の表示があります。

HTMLのソースではこんなふうになってます。

<div class="GroupSummary"><div class="zaikoleft">在庫あり 17点／全19点</div></div>

だからここをスクレイピングで切り取って、在庫数と全冊数の比較を行ない、同じ（つまり全部揃ってれば）メールやRSSで通知するといいんじゃないかと思ってます。
もちろん定期的にチェックしないといけないので、どっかのサーバからcronで動かさないといけないですね。RSSだとCGI経由で呼び出せばキックするのはクライアント側でできるかな。

とりあえず見よう見まねで Web::Scraper を使って書いてみたんだけど、正規表現で判定するところが動かないんですよね。日本語のままだからだと思うんだけど。

以下、ソースです（注：まるで動かないです）。

use Web::Scraper;
use URI;
my $scraper = scraper {
  process 'div.zaikoleft', 'zaiko' => 'TEXT';
};

my $uri = new URI('http://www.bookoffonline.co.jp/disp/BSfGroupSearchDetail.jsp?groupId=1053%20%20%20%20%20%20');

my $res = $scraper->scrape($uri);

if ($res->{zaiko} =~ /.+ (\d+)点／全(\d+)点+/) {
  $zaiko = $1;
  $all = $2;

  print "zaiko => $zaiko \n";
  print "all => $all \n";

  if ($zaiko == $all) {
    print "You can buy!!";
    # send mail...
  }
}

exit;

「F」のオトナ買いがしたいんだけど、毎日チェックするのはめんどくさくて。きっと他のお客さんも同じだと思うとホントに申し訳ないです。

こうやれば動くよって教えていただけると助かります。

[追記]
iwazerさんに教えていただいて、以下のようにすれば動きました。

otona_checker.pl（UTF-8で保存してください）。

use Web::Scraper;
use URI;
use utf8;

my $scraper = scraper {
  process 'div.zaikoleft', 'zaiko' => 'TEXT';
};

my $uri = new URI('http://www.bookoffonline.co.jp/disp/BSfGroupSearchDetail.jsp?groupId=1053%20%20%20%20%20%20');

my $res = $scraper->scrape($uri);

if ($res->{zaiko} =~ /.+\s+(\d+)点／全(\d+)点/) {
  $zaiko = $1;
  $all = $2;

  print "zaiko => $zaiko \n";
  print "all => $all \n";

  if ($zaiko == $all) {
    print "You can buy!!";
    # send mail...
  }
}

exit;