#!perl -p
1while s/^\. | \.(?= |$)|\w+ \.\. ?| $//g;s/^$/./