[^<B>]  <- this matches any *single* char that is not a < B  >
($swapString) <- this put the match for $swapstring into $1
[^<\/B>]  <- this matches any *single* char that is not a < / B  >