my @tr = split(/(?=<tr)/, $string); # split at <tr, but do not remove <tr
@tr = grep { ! /NOTWANTED/ } @tr;   # remove the elements with NOTWANTED
print join('', @tr);