map oct( "0b$_" ), unpack 'A3A2A2A1A4A2A1A1A2A2A1A1A2',  unpack 'B*', $x;;