Select Code to Download

my @nodes = $tree->findnodes('//tr');
for my $node (@nodes) {
@text = $node->findvalues('td') or next;
print Dumper \@text;

<ul><li>There was registered attempt to establish connection with the 
+remote host. The connection details are:</li></ul>
<p><table class="tbl" cellpadding="5" cellspacing="0">
<tr><td class="cell_1_h">Remote Host</td><td class="cell_2_h">Port Num
+ber</td></tr>
<tr><td class="cell_1">192.5.5.241<td class="cell_2">8091</td><tr>
</table></p>

my @nodes = $tree->findnodes('//ul');
for my $node ?(@nodes) {
...
    print @Dumper \@text;
    }
}

<ul><li>....connection...</li></ul>
<p><table>
...
.
.
</table> </p>