Since you seem to have bin2num, here's bin2dec, taken straight from the pack() docs:

sub bin2dec {
  unpack("N", pack("B32", substr("0" x 32 . shift, -32)));
}
[download]