use HTML::TreeBuilder;

my $tree = HTML::TreeBuilder->new;
$filename = "websource2.txt";
$tree->parse_file($filename);
@tbodies = $tree->find('tbody');
@tds = @tbodies[0]->find('td');	
@data = @tds[1..6];
foreach(@data){
$_->dump();
}