#!perl -p
s/(\.| #) /$1./&&redo