perl -e 's;^$;sprintf"%80s",$/;e;y; ;-; ;print'