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>
    <td><font size=2>1 Jul 2010</font></td>
    <td><font size=2>10 Aug 2010</font></td>
    <td><font size=2><B>Shellshocked</B></font></td>
</tr>~;
      my $p=HTML::TokeParser->new(\$item);
      my $data = $p->get_text(['</td>']);
      print "$data\n";
[download]

 
     EXCAVATOR 
     1 Jul 2010 
     10 Aug 2010 
     Shellshocked
[download]