in reply to Splitting A Word?

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

[download]

In Section Seekers of Perl Wisdom