$text =~ s/(?!rice)
           (?:dr\.\ |doctor\ )?
           (?:condoleeza\ )?
           rice
          /condoleezarice/igx;