if ( length($short) + length($parts[0]) <= $len ) { $short = join( ' ', $short, shift @parts ); }