Select Code to Download

#! perl -slw
use strict;
...
3
86
31138

sub bitFields{
    unpack 'L*', pack'(b32)*', map scalar( reverse),
        unpack $_[1], reverse unpack 'b32', pack 'L', $_[0];
}