c:\@Work\Perl\monks>perl -wMstrict -le
"my $out;
 ;;
 $out .= reverse for unpack '(b7)*', '4B3A';
 print qq{'$out'};
"
'0110100100001001100111000001'