in reply to String concatenation function

There is a simplier way to achieve what you want: 

print "*" x 5;

[download]

Leonid Mamtchenkov aka TVSET

In Section Cool Uses for Perl