http://qs321.pair.com?node_id=845415


in reply to substr question

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