$string =~ s/(\S{30})/$1 /g;