$space[$i] =~ s/((?:[A-Z][^A-Z\n]*){10})/$1\n/gx;