SA Bugzilla – Attachment #5365: Add word boundaries to tag regex for bug #6162
# default to leaving the original string in place, if we cannot find
# a tag for it (bug 4793)
local($1,$2,$3);
$text =~ s{(_(\w+?)(?:\((.*?)\))?_)}{
$text =~ s{((?=\b|_)_(\w+?)(?:\((.*?)\))?_(?=\b|_))}{
my $full = $1;
my $tag = $2;
my $result;