$swapString = join ("|", @array2);
print "swapString 2 - [$swapString]\n";
$string =~ s/[^<B>]($swapString)[^<\/B>]/<B>$1<\/B>/gi; 

print "string after first - $string\n";