my $vec = str_from_bits( 8, 1, 9); my ( $lo, $hi) = ( vec( $vec, 0, 8), vec( $vec, 1, 8)); printf "lo: 0x%02x, hi: 0x%02x\n", $lo, $hi;