Re: substr question

[YuckFoo]

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