#!/usr/bin/perl
use strict;
use warnings;
use HTML::TreeBuilder;
my $tree = HTML::TreeBuilder->new; # empty tree
$tree->parse_file( \*DATA );
my $matching_td = $tree->look_down(
"_tag", "td",
"class", "important"
);
my $td_before = $matching_td->left();
print $td_before->as_text();
__DATA__
Untitled