ヒントだけで良いの？
use LWP::UserAgent;
でページを取得して。
use HTML::TreeBuilder;
でHTMLを解析して特定のところを拾ってきて。
あとは正規表現で調整して・・・