Re^2: substr question

[rowdog]

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

The length is off by one because you add not only the part, but a new space as well. The easy fix is to delete the = from <= $len