#!/usr/bin/perl -w
use strict;

$_ = "<b>foo</b> foo <b>bar</b> bar <b>foo</b> foo <b>bar</b> bar\n";
print;

s/(?!<b>)(foo|bar)(?!<\/b>)/XXX/gi;
print;