$html =~ s/\n/<br>\n/g;  # assume this, and then fix <br> in pre blocks with.....

$html =~ s{<pre>(.*?)</pre>}
          { local $_=$1; s/<br>//g; $_ }gse;

print $html;