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