#!perl -p
s;(^| \K|\w+ .).( |$)| $;;?redo:s;^$;.