print unpack 'C*', pack '(B8)*', map{ 
       substr '00000000'.$_, -8 
} unpack 'A1A3A4',unpack 'B*',pack 'C', 162;;

1 2 2