$Txt =~ s!(<table.*?>)(.*?|\n)(</table>)!
   my $TD = $2;
   my $first = $1;
   my $last = $3;
   unless ($TD =~ /id="CODE"/) {$TD =~ s#<br>#\n#isg;}
   "$first$TD$last"!eisg;