echo  $x | perl -pe 's/(?<=\d)(?=(\d\d\d)+\b)/./ while(/\d{5,}/)'
1 12 123 1.234 12.345 123.456 1.234.567 123.456 12.345 1234 123 12 1