つーか、HTML::Parser 使おう。