my $ref = \ substr( $astring, $start, $len );
vec( $$ref, $offset, $size ) = 1;