如何在数字的最后三位数字之前插入小数点？

我有一个数字，需要添加小数以进行格式化。

该数字保证在 1000 到 999999 之间（我已经以其他方式介绍了其他可能性，这是我无法理解的）。我需要在最后 3 位数字之前添加小数，例如：

1000   -> 1.000
23513  -> 23.513
999999 -> 999.999

我怎样才能做到这一点？

还有另一种取乐的方式;-)

my $num_3dec = sprintf '%.3f', $num / 1000;