I like the approach taken by this proposed solution with one exception: I would forego the $repeats variable and just list $symbol twice in the sprintf argument list. While the former might be more concise, I feel the latter would be more understandable to those who might not be as familiar with the full power of Perl's string processing abilities.