# ... 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";
}
####
19th Ave and Eighth Street S.E.
Boser and Liker Trail S.E.
Lambert and Jerry Drive S.E.