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


in reply to Print a string X times?

print '-' x $length;