#!perl -p0 eval's/#/++$i/e;1while s/$i(.{50})?#/$i$1$i/s;'x9