$num =~ s/(.{3})(?!$)/$1./g;