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