in reply to Print a string X times?

print '-' x $length;

[download]

In Section Seekers of Perl Wisdom