Regular expressions
Find capital letter, period, space, capital letter, period.
([A-Z]\.)[ ]([A-Z]\.)
Kill the space by using this for the replacement field:
$1$2
Perl: find uppercase words.
\b[[:upper:]]{2,}\b
find capital letter at the end of a line, insert period before newline
(\s[[:upper:]])\n \1\.^p
find period, capital lettere at the end of a line
(\.[[:upper:]])\n