Select Code to Download

my @p;
my @pos = qw(1 2 3 4);
foreach (@pos) {
    $p[$_] = '0' x 128;
}

my @ranges = qw(1..4 5..8 9..12 13..16 1..8 9..16 )
foreach my $range ( @ranges ) {
...
        substr($str1,$_,1) = '1';
    }
}