1 while $msg =~ s/(\S{30})(\S)/$1 $2/;