my ($short) = $str =~ m/(.{1,$max}\b)/; $short .= '...';