#!perl -p0 s/^ * //mwhile s/(\S)(\D{50}) / $2$1/