#!perl -p
s/ # *\K /./&&redo