my $s = '0123456789'x3;
print "$s\n";

my $c = 30;
substr $s, $c, 0, $c==15?'<br>':'-' while $c-=5;
print "$s\n";