sub code2html {

my $text=shift;

$text =~ s/\[mail\]([^\[]*)\*([^\[]*)\[\/mail\]/<a href=\"mailto:$1\">$2<\/a>/gim;

$text =~ s/\[www\]([^\[]*)\*([^\[]*)\[\/www\]/<a href=\"$1\" target=\"_blank\">$2<\/a>/gim;

$text =~ s/\[b\]([^\[]*)\[\/b\]/<b>$1<\/b>/gim;

$text =~ s/\[i\]([^\[]*)\[\/i\]/<i>$1<\/i>/gim;

return $text;

}