sub b2i { return split //, unpack('b*', @_); }