Select Code to Download

my $num = shift;
my $bits = 6;
...
    ($num & $mask << $_ * $bits)
    >> $_ * $bits
} 0..$bits-1;

my $num    = shift;
my $groups = 5;
...
    ($num & $mask << $_ * $bits)
    >> $_ * $bits
} 0..$groups-1;

my @in  = (30, 14, 27, 2, 17);
my $width  = 6;
...
my $offset = 0;
my $out = 0;
$out |= ($_ << ($offset++ * $width)) for @in;