Select Code to Download

use strict;
use warnings;
...
my @matches = $text=~ m|<td>((?:(?!</td>).)*)</td>|g;

print "@matches";

Hello Bye