My two cents...

Why not using HTML::TableExtract? (uh, this is the second time I point to this module in two days). Probably it will be a bit slower, but far more readable. And the code you will write wont break if your assertions will become not valid.

So far so good. But if you want to use regexp, you could improve readability writing e.g. \d{3} instead of \d\d\d.