#!perl -p
s#\G #.#gwhile/ #/g