$ perl -Mstrict -Mwarnings -E '
my $out;
$out .= $_ for map { unpack q{xA7}, $_ } unpack q{(B8)*}, q{4B3A};
say $out;'
0110100100001001100111000001
$