Help for this page
$text =~ s/(national security adviser )?(dr. |doctor )?(condoleeza )?r +ice/condoleezarice/ig;
((dr. |doctor )|(condoleeza ))rice