while(/<pre>(.*?)<\/pre>/) {
     $1 =~ s/<BR>\n/\n/gs;
}