use warnings;
use HTML::Element;
use HTML::TreeBuilder;

my $tree = HTML::TreeBuilder->new;

$tree->parse_file('C:/Documents and Settings/Issa/Desktop/test.html');

foreach my $table_row ($tree->look_down('_tag' => 'tr')) {

foreach my $table_cell ($table_row->look_down('_tag' => 'td')) {

#foreach my $input_field ($table_cell->look_down('_tag' => 'input')) {

foreach my $input_field ($table_cell->look_down('_tag' => 'tt')) {
foreach my $test ($input_field->as_text){
if ($test =~ /Met/) {
print $test, "\n"; #als test ob es funzt!!

foreach my $lookup ($tree->look_up('_tag'=>'tr')) {
my @tags = $lookup->content_list;

foreach my $tag(@tags) {
print $tag->as_text;

}
}
}
}
}
}
}

print "ok!!!!!!";