my $dqsel = unpack "I", pack "B*", join '', @exclude;
# neater, aint' it?