my $thispage = q{
  <TABLE border=0 cellPadding=2 cellSpacing=0>junk</TABLE>
  <TABLE border=0 bogusTag="Don't match this">more junk</TABLE>
  <TABLE border=0 cellPadding=2 cellSpacing=0>most junk</TABLE>
};
$thispage=~s/<TABLE border=0 cellPadding=2 cellSpacing=0>.*?<\/TABLE>//g;
print $thispage;