my $char = '*';
print $char x 5;  # prints "*****"