$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++;
}