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