Your regex looks fine, here's an alternative using substr:

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

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

-- Mike

--
just,my${.02}