$text= "HelloBye"; if ($text=~ m/<\/td>([^ ]*)<\/./g) {print "$1\n$2\n$3";}