#!/usr/bin/perl -w
while (<>) {
    s/(\d)\.(\d)/$1$2/g;	# thousand point out
    s/(\d),(\d)/$1\.$2/g;	# change decimal sign
    print $_;
}