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