in reply to substr question

($string) = ("$string " =~ m{(.{1,100}\s)});

[download]

In Section Seekers of Perl Wisdom