my $x = 'abc' x 10;
$x =~ s/(.{4})/$1 /sg;
print $x, "\n";
__END__
abca bcab cabc abca bcab cabc abca bc