[0] Perl> print unpack '%32b*', chr( 0b10101010 );;
4