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