while ($text=~ m|<td>((?:(?!</td>).)*)</td>|g) {print "$1\n";}