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

##</code><code>##

<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 Number</td></tr>
<tr><td class="cell_1">192.5.5.241<td class="cell_2">8091</td><tr>
</table></p>

##</code><code>##

my @nodes = $tree->findnodes('//ul');
for my $node ?(@nodes) {
my $text2 = $node->findvalue('li') or next;
if ($text2 =~ m/connection details are/) {
    print "$text2\n";
    my @text = $node->findvalues('/tr/td');
    print @Dumper \@text;
    }
}

##</code><code>##

<ul><li>....connection...</li></ul>
<p><table>
<tr><td>stuff</td><td>stuff2</td></tr>
.
.
.
</table> </p>