$text =~ s/(?:national security adviser |dr\. |doctor |condoleeza )+rice/condoleezarice/ig;

##</code><code>##

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