Select Code to Download

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

1 2 2

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

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

#! perl -slw
use strict;
...
1
2
2