$message =~ s{\[(.?)$_\]}{<$1$_>}g foreach @AUBBC_TAGS;