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 letter at the end of a line
(\.[[:upper:]])\n
\s\(([0-9]{4})
\s[[:upper:]]+\r
\L\1\n -- lowercases everything
\L2\1\n -- inserts 2, space, lowercase of the string
\L$2\1\n -- does not insert 2, lowercases string
\U\L\1\n -- lowercases everything