#!perl -p0
0while$n=$$&40,s/(\w)(.{$n}\w)\|/|$2$1/s