$ perl -wle'
my $wort = " - Wort - ";
print $wort x 10;'
 - Wort -  - Wort -  - Wort -  - Wort -  - Wort -  - Wort -  - Wort -  - Wort -  - Wort -  - Wort -