#!/usr/bin/perl -p
s/([.!?]) +/$1\n/g;
s/(Mr|Mrs|Ms|Prof|Dr|Gen|Rep|Sen|St|Messrs|Drs|Mmes|Rev|Hon|Sr|Jr|Ph\.D|[A-HJ-Z])\.\n/$1. /g;
# implied: M.D, B.A., M.A, D.D.S., etc.
# also, in. (inches)
# thanks to: http://grammar.ccc.commnet.edu/grammar/abbreviations.htm

# excluding I is a bit dodgy!  well it's a approximate splitter!