my ($exclude) =
  map qr{ (?: $_) (*SKIP) (*FAIL) }xms,
  join q{ | },
  map qq{\Q$_\E},
  reverse sort
  qw(e.g. i.e. Dr. Mr. Mrs. ... etc.)
  ;

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