bin2num($) { return pack("B*",shift) }