$string =~ s/([^<B>]($swapString)[^<\/B>])/<B>$1<\/B>/gi;


##</code><code>##

$string =~ s/([^<B>])($swapString)([^<\/B>])/$1<B>$2<\/B>$3/gi;