Select Code to Download

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