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