#!perl -p
s#\S *.#$&=~y/ /*/r#ge