Thanks Boris, I tossed in:

$i = 0;
while ($i < $n) {
$space[$i] =~ s/((?:[A-Z][^A-Z\n]*){10})/$1 /gx;
$space[$i] =~ s/((?:[A-Z][^A-Z\n]*){100})/$1 <br \/>/gx;
$i++;
}
[download]

and it did the trick beautifully. Not exactly what you suggested, but almost. Thanks. -Matt