my $dqsel = bin2dec(join '', @exclude);
[download]

would be less ugly. Just define bin2dec appropriately, such as:

sub bin2dec {
   my ($bin) = @_;
   return unpack("N", pack("B32", substr("0" x 32 . $bin, -32)));
}
[download]