my $str = '001100010011001100110001';
my $value = pack ('B*', $str);
print $value;