while( 1 < length $str ) {