#!/usr/bin/perl
use strict;
use warnings;
use LWP::UserAgent;
use HTML::Parser;

# Create instance
my $p = HTML::Parser->new(api_version => 3,
                          marked_sections    => 1,
                          unbroken_text      => 1,
                start_h => [\&start_rtn, 'tag','event'],
                text_h => [\&text_rtn, 'text'],
                end_h => [\&end_rtn, 'tag']);
# Start parsing the following HTML file
$p->parse_file("testpage.html");

sub start{
# Execute when start tag is encountered
      my ($tag, $text, $event) = @_;
       if ($tag =~ /td/){
       print "\t$text \n";
}
}