my ($d1, $d2, $d3) = map oct "0b$_", sprintf("%08b", 162) =~ /(.)(...)(....)$/;