>>639
my $str = '010111010010101010100101010';
print join( ' ', split(/([01]{4})/, $str) );