in reply to Want a faster replace, Please

Change:

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

To:

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