c:\@Work\Perl\monks>perl -wMstrict -le
"my $out;
 $out .= sprintf '%07b', $_ for unpack 'C*', '4B3A';
 print qq{'$out'};
"
'0110100100001001100111000001'