#!perl -p
s/^ | {8,}\K.| /#/g