#!perl -p
s/([A-Z])[a-z-]+/$1/g;
s/(.)\s/$1/g;