Edit file File name : demo_locale.pl Content :use POSIX qw(locale_h); setlocale(LC_ALL, "de"); # Get a reference to a hash of locale-dependent info $locale_values = localeconv(); # Output sorted list of the values for (sort keys %$locale_values) { printf "%-20s = %s\n", $_, $locale_values->{$_} } __END__ use Text::Reform; my @vals = (1.1,22.22,333.333); print form ']]]]]].[[', [@vals]; print form ']]]]]].[[', [@vals]; setlocale(LC_CTYPE, ""); print form ']]]]]].[[', [@vals]; Save