$dig = "5555444433332222";
print join " ",$dig =~ /(\d{4})/g;
_ _ END _ _
5555 4444 3333 2222