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