# ... as for first sample

my $tree = HTML::TreeBuilder->new;

$tree->parse ($var);

for ($tree->find ('tr')) {
    next unless $_->as_text () =~ /\band\b/;
    next if $_->find ('br');
    print $_->as_text () . "\n";
}