Select Code to Download

for my $chunk ( substr( $astring, $start, $len ) ) {
  ...
  vec( $chunk, $offset, $size ) = 1;
  ...
}