my $html = do {local $/;<FILE>};

##</code><code>##

$html =~ s/<table[^>]+>.+<\/table>//s;