in reply to Re^2: Split string into equal parts
in thread Split string into equal parts

s/.{4}\K(?=.)/ /sg;

[download]
is an optimisation of 
s/(.{4})(?=.)/$1 /sg;

[download]

In Section Seekers of Perl Wisdom