sub dec_bin2s { return unpack "B8", pack "c", shift; }