if (my @text = $text =~ m|</td><td>([^ ]*)</.|g) {
  print "@text\n";
}