#!perl -p
s/(\G(?!^)| #) /$1./g