vec( $_, $offset, $size ) = 1 for substr( $astring, $start, $len );