~$ perl -E 'use Gtk2 -init; use POSIX qw(setlocale LC_NUMERIC); say 3.14; setlocale(LC_NUMERIC, ""); say 3.14; setlocale(LC_NUMERIC, "C"); say 3.14; setlocale(LC_NUMERIC, ""); say 3.14; say 3.14 . ""; ' 
3,14
3,14
3.14
3,14
3,14