とりあえず強引に取り出せばいいんじゃないの？
あれこれ考えるより、とりあえず手を動かしてうまくいったら結果オーライってことで。
どうせスクレイピングなんてページの仕様が変わったらそれまでなんだし。

my $page = ここに目的のページコンテントを入れる
my $tree = HTML::TreeBuilder->new_from_content($page);
# とりあえず会社名に一番近いタグを目印に
my @companies = $tree->look_down(_tag=> "td", bgcolor => '#CCCCCC');
my $i = 1;
my @table;
for my $co (@companies) {
　　#奇数番目に関係ない要素がはいりこんだのでオミット
　　$i++ % 2 and next;
　　my $co = $co->look_up(_tag=>"tr");
　　my $co_text = $co->look_down(_tag=>"font")->as_text;
　　my @data = map { $_->as_text } $co->look_down(_tag => "div");
　　push @table, [ $co_text, @data ];
}
$tree->delete;