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

print join(" ",@array);