Select Code to Download

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

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