A First Cut at Data Extraction 

use Data::Dumper;

print Dumper( get_phonelist_data() );

sub get_phonelist_data {
  my $dom = get_phonelist_html();

  my @results;
  foreach my $row ($dom->findnodes('//tr')) {
    my @f = map { $_->to_literal } $row->findnodes('./td');
    push @results, \@f;
  }

  return \@results;
}

• Alternative XPath queries:

/html/body/table[2]/tbody/tr

//tr[./td/a]