in reply to Splitting A Word?

s/(\w{30})/$1 /g;

In Section Seekers of Perl Wisdom