#!perl -p0
s/(\S)(.{50}) |^ *
 / $2$1/s&&redo