use strict;
use warnings;

my $text= "<td class=sp></td><td>Hello</td><td class=sp></td><td>Bye</td><td class=sp>";
my @matches = $text=~ m|<td>((?:(?!</td>).)*)</td>|g;

print "@matches";

##</code><code>##

Hello Bye