#!perl -0p
s/(\d)(.{50})?\K#|#/$1||++$x/es&&redo