#!perl -p
1while s/\S{3} +.\.(?!\.)|(?<!\.)\.(?!\.)//g;s/^ *| *$| \K *//g;s/^$/./