#!/usr/bin/perl

$_ = ;
1 while (s/(\d)(\d\d\d)(?!\d)/$1.$2/);
print;