$string =~ s/(?<!<B>)($swapString)(?!<\/B>)/<B>$1<\/B>/gi;

# this gives:

there is a <B>foo bar</B> and a <B>bar foo</B> and also <B>foo</B> and <B>bar</B>.