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