use strict;
use warnings;
use HTML::TreeBuilder;

# original my $var stuff here

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

$tree->parse ($var);

push @lines, $_->as_text () . "\n" for $tree->find ('tr');

print join "\n", @lines[2..4];

##</code><code>##

 19th Ave and Eighth Street S.E. 

 Boser and Liker Trail S.E. 

 Lambert and Jerry Drive S.E.