my $AUBBC_TAGS = join '|', @AUBBC_TAGS;

my $message = '[b] stuff [i] stuff [/i] [/b]';

$message =~ s{\[(.?)?($AUBBC_TAGS)\]}{<$1$2>}xgo;
#        or s{\[(/?(?:$AUBBC_TAGS))\]}{<$1>}xgo;

print $message;
[download]

PerlMonks parthenogenetically spawned by Tim Vroom.
PerlMonks went on a couple dates, and then decided to shack up with The Perl Foundation.
Beefy Boxes and Bandwidth Generously Provided by pair Networks
Built with the Perl programming language.