$text =~ s/\[(b|glow)\]/<$1>/g;

##</code><code>##

  $text =~ s/\[([^\]]+)\]/<$1>/g;