Rather than a regex you could also use substr:

my @array = ();
while($string) {
     push(@array,substr($string,0,4,''));
}

print join(" ",@array);
[download]

Chris