in reply to Add space in long string

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

[download]
لսႽ† ᥲᥒ⚪⟊Ⴙᘓᖇ Ꮅᘓᖇ⎱ Ⴙᥲ𝇋ƙᘓᖇ

In Section Seekers of Perl Wisdom