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