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