#!perl -p
s/^$/./while s/^.? | .$| \K. | ?\w+ .\.//