($string) = ("$string " =~ m{(.{1,100}\s)}); [download]
In reply to Re: substr question by YuckFoo in thread substr question by Anonymous Monk