$ perl -E '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