jonnyr9,
What does this do that the x operator doesn't do? Have you looked at perldoc perlop. This is the string multiplier.

#!/usr/bin/perl -w
use strict;
my $string = '*';
$string = $string x 5;
print "$string\n";
[download]

L~R