my $bin = '1001100010100001';
print join ' ', unpack '(A4)*', $bin;