Help for this page
while(/<pre>(.*?)<\/pre>/) { $1 =~ s/<BR>\n/\n/gs; }
while(/"(.*?)"/g) { $1 =~ s/\c@\[\d+[a-x]//g; }