Help for this page
while (<DATA>) { /\./ ? s/(?<=\d)(?=(\d{3})+(?:\.))/,/g ... 1234567 +12345678.12 -123456789.12345678
123 1,234 ... 1,234,567 +12,345,678.12 -123,456,789.12345678