#!/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, "tagname, attr"],
        text_h => [\&text, 'text'],
);
# Start parsing the following HTML file
$p->parse_file("testpage.html");

my $get_next_text = 0;
sub start{
# Execute when start tag is encountered
    my ($tagname,$attr) = @_;
    if ($tagname eq 'td' && exists $attr->{align} && $attr->{align} eq 'right'){
        $get_next_text = 1;
    }
    else {
        $get_next_text = 0;
    }
}
sub text {
    my $text = shift;
    print "$text\n" if $get_next_text;
}