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


##</code><code>##

while(/"(.*?)"/g) {
    $1 =~ s/\c@\[\d+[a-x]//g;
}