my( $bit1, $bit2, $bit3 ) = /(..)(..)(..)/;