# each table consists of three lines:
#  the <table> tag (nothing else) on one line
#  all <tr><td>content</td>...</tr> (nothing else) on the next line
#  the </table> tag (nothing else) on the third line

my ($open,$content);
my $Txt = '';

while (<>) {
   if ( /<tr>/ ) {
       s/<br>/\n/gi unless ( /id="CODE"/ );
   }
   $Txt .= $_;
}