You may consider to use FEAR::API. The code would be like this:

use FEAR::API -base;

file("your_source_file")
    ->document
    ->html_to_xhtml
    ->xpath("/html/body/table/tr");
doc_filter(use => 'remove_attributes');
print doc->as_string;
template(qq!<tr>\n<td><a>[% city %]</a></td>\n<td>[% cond %]</td>\n<td
+>[% temp %]</td>\n</tr>!);
extract;
print Dumper extresult;
[download]