for ( 0..$strLen/2 )