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