my @tables = $tree->findnodes('//table');
my $table = $tables[12];

##</code><code>##

my @cells = $row->findnodes('td')
##</code><code>##

for my $cell (@cells)...
print $cell->as_text