perl HTML-TableExtract