#!perl -p0
s/(\d)(.{50})?\K#|#/$1||++$%/se&&redo