Perl regex to parse HTML table