@space = #some array of long text strings;
$n = () = @space;
$i = 0;
while ($i < $n) {
  $space[$i] =~ s/([A-Z]{10}?)/$1 .' '/gxe;
  $i++;
}