$bin = '1001100010100001';;

$bin =~ s[....\K][ ]g;;

print $bin;;
1001 1000 1010 0001