Help for this page
my $jdsc = qr/(?:national\s+security\s+adviser\s+)/; my $title = qr/(?:dr.|doctor)\s+/; ... doctor condoleeza rice condoleeza rice national security adviser doctor condoleeza rice
s/ (?!$sn) $jdsc? $title? $fn? $sn /$repl/igx;