is there a simpler way to do the following: my $dqsel = unpack("I",pack("B*",join('',@exclude)));

Well, other than the other cool answers you got, you could remove unnecessary parens:

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