perl -pe'1while s/\S{3} +\.\.(?!\.)|(?<!\.)\.(?!\.)//g;s/ +/ /g;s/^ | $//g;s/^$/./'