Select Code to Download

my @masks = qw( 01010110101010101010110101011011
                10011011001100110011011001101101
                11100011110000111100011110001110
...
    $r[0] = unpack '%1B*', $r[0] . join "", @r[ 1 .. $#r ];
    return join "", @r
}