#!perl -p
0while s;^. | .(\s)|\w+ .(\.);$+