in reply to How can i print N repeated characters?
Or you could always do it this way:
my $n = 5; print "-" x $n; [download]