in reply to How do I insert a space after 30+ consecutive non-space characters?
$string =~ s/(\S{30})/$1 /g; [download]