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