$message =~ s~<br>~=br=~isg;
        while ($message =~ s{\[code\]([\S\s].+?[\S\s])\[/code\]}
                {

                        my $tmp = $1;
                        $tmp =~ s!<!&#60;!g;
                        $tmp =~ s!>!&#62;!g;    # &#39;
                        $tmp =~ s!:!&#58;!g;
                        $tmp =~ s!\[!&#91;!g;
                        $tmp =~ s!\\!&#92;!g;
                        $tmp =~ s!\]!&#93;!g;
                        $tmp =~ s!\)!&#41;!g;
                        $tmp =~ s!\(!&#40;!g;
                        $tmp =~ s!\|!&#124;!g;
                        $tmp =~ s!([^\&])(\#.*?(=br=))!$1<font color="blue"><i>$2</i></font>!g;
                        $tmp =~ s!(&#39;.*?(&#39;|=br=))!<font color=red>$1</font>!g;
                        $tmp =~ s!(&quot;.*?(&quot;|=br=))!<font color=red>$1</font>!g;
                        $tmp =~ s!(return)!<b>$1</b>!g;
                        $tmp =~ s!(require)!<b>$1</b>!g;
                        $tmp =~ s!(while)!<b>$1</b>!g;
                        $tmp =~ s!(foreach)!<b>$1</b>!g;
                        $tmp =~ s!(for)!<b>$1</b>!g;
                        $tmp =~ s!(my)!<b>$1</b>!g;
                        $tmp =~ s!(sub)!<b>$1</b>!g;
                        $tmp =~ s!([^\w])(if)([^\w]*)!$1<b>$2</b>$3!g;
                        $tmp =~ s!(unless)!<b>$1</b>!g;
                        $tmp =~ s!(elsif)!<b>$1</b>!g;
                        $tmp =~ s!(else)!<b>$1</b>!g;
                        $tmp =~ s!(use)!<b>$1</b>!g;
                        $tmp =~ s!(package)!<b>$1</b>!g;
                        $tmp =~ s!&lt;!&#60;!g;
                        $tmp =~ s!&gt;!&#62;!g;
                        $tmp =~ s!&quot;!&#34;!g;
                        $tmp =~ s!"!&#34;!g; #"
                        $tmp =~ s!\s{1};!&#59;!g;
                        #$tmp =~ s!&gt;br&gt;!\n!g;

                        $tmp = "<br><div class=\"codepost\"><font color=\"blue\"><i># $msg{code}</i></font> <br>"
                                . $tmp
                                . '<br><font color="blue"><i># Code End</i></font></div>';
                }exisog) {}
                $message =~ s~=br=~<br>~isg;