or download this
my $item = qq~<tr>
<td><font size=2><B><a href='javascript:void(0);' onClick="javascr
+ipt:window.open('../exc_details.asp?PID=0000','Nyhet','toolbar=no,loc
+ation=no,directories=no,status=no,menubar=no,scrollbars=yes,resizeabl
+e=yes,width=380,height=500');" href="javascript:void(0);">EXCAVATOR</
+A></B></font></td>
...
my $p=HTML::TokeParser->new(\$item);
my $data = $p->get_text(['</td>']);
print "$data\n";