Select Code to Download

my ($exclude) =
  map  qr{ (?: \Q$_\E) (*SKIP) (*FAIL) }xms,
...
  qw(e.g. i.e. Dr. Mr. Mrs. ... etc.)
  ;
my $delimiter = qr{ $exclude [.?!] \s }xms;

my ($exclude) =
  map qr{ (?: $_) (*SKIP) (*FAIL) }xms,
...
  ;

my $delimiter = qr{ $exclude [.?!] \s }xms;

my $name = qr{ [[:upper:]] [[:lower:]]+ }xms;
my $initialed_name = qr{ \b [[:upper:]] [.] (?= \s+ $name) }xms;
...
  ;

my $delimiter = qr{ $exclude [.?!] \s }xms;

my $initial = qr{ \b [[:upper:]] [.] \s*      }xms;
my $name    = qr{ \b [[:upper:]] [[:lower:]]* }xms;
my $initialed_name = qr{ $initial+ (?= \s+ $name) }xms;