perl -we 'use POSIX; use locale; setlocale LC_NUMERIC, "fr_FR"; $x = "123,45"; $x+=0.1; print $x; setlocale LC_NUMERIC, ""; $x += 0.1; print $x;'