$dig = "5555444433332222";
$dig =~ s!(\d{4})!$1 !g;
print $dig;