my $short = substr($string, 0, rindex($string, ' ', $len) + 1 || $len);