## pack 162 into an 8-bit binary value (a char).
pack 'C', 162       

## unpack that into it's bits, (asciized binary bitstring).
unpack 'B*',        

## split that into the 3 fields. ('1','010', '0010' ).
unpack 'A1A3A4',    

## Pad each to the smallest size (8 bits) that Perl can deal with numerically.
map{ substr '00000000'.$_, -8 }
                    
## Pack them back up to binary values (chars).
pack '(B8)*',       

## And unpack them back to numeric values.
unpack 'C*',        

## and convert those to ascii-decimal for display
print