it's ok:

$num =~ s/(?!^)(.{3})(?=(?:.{3})*$)/.$1/g;
[download]

thank you!!