~$ perl -e 'print join('x', (1)x5),"\n"'
1x1x1x1x1