Возможно ли упаковать 5 бит в perl?

Question

Например, предположим, что я хочу упаковать следующие биты: 11111, который равен 31 десятичной. Как я могу упаковать эти 5 бит? Я не хочу упаковывать 8 бит или 1 байт. Мне нужно упаковать только 5 бит; 11111

b5 "11111", похоже, не работает для меня.

Answer 1

работает для меня:

print oct "0b11111"; 
    31 
    print ord(pack("b*","11111")); 
    31