Select Code to Download

my $p = join '|', map { "$pre[$_]\\0{@{[($N-$_)>>3]}}$suf[($N-$_)&0x7]
+" } 0..7;

my $p = join '|', map { "$pre[$_](\\0{@{[($N-$_)>>3]}}$suf[($N-$_)&0x7
+])" } 0..7;

$-[$#-]*8 - $#- + 1