#!perl -p0
0while s/$;(.{50})?\K#/$;/s||s/#/++$;/e