#!perl -p0
/
/;s/(\w)(.{@{-}})\b\W/|$2$1/s&&redo