Select Code to Download

            <tr>                            <td>2012/07/30</td>
                            <td><a
href="http://www.zone-h.org/archive/special=1/notifier=Dg4nx">Dg4nx</a
+></td>
...
                            <td><a
href="http://www.zone-h.org/mirror/id/18160940">mirror</a></td>
                        </tr>

 use HTML::TableExtract qw(tree);
 $te = HTML::TableExtract->new( headers => [qw(Date Notifier H M R L D
+omain OS View)] );
 $te->parse_file($html_file);
...
 $table_text = $table_tree->as_text;
 $document_tree = $te->tree;
 $document_html = $document_tree->as_HTML;