Select Code to Download

.codepost { 
background-color: #ffffff;
 width: 500px;
...
 padding-left: 2px;
 padding-bottom: 5px;
}

sub html_escape
{
        my $text = shift;
...

        return $text;
}

 $message =~ s~<br>~=br=~isg;
        while ($message =~ s{\[code\]([\S\s].+?[\S\s])\[/code\]}
                {
...
                                . '<br><font color="blue"><i># Code En
+d</i></font></div>';
                }exisog) {}
                $message =~ s~=br=~<br>~isg;