Select Code to Download

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