Select Code to Download

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

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