http://www.perlmonks.org?node_id=94553


in reply to Splitting A Word?

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

[download]

In Section Seekers of Perl Wisdom