#!/usr/bin/perl
use warnings;
use strict;

use HTML::TreeBuilder;

my $tree = HTML::TreeBuilder->new_from_file('IDQ60606.shtml');

my @cells = $tree->look_down(
                '_tag'  => 'td',
                'class' => 'rowlevel1',
);

print $_->as_trimmed_text,"\n" for @cells;