Index: applications/editors/josm/i18n/replacetrans.pl
===================================================================
--- applications/editors/josm/i18n/replacetrans.pl	(revision 36408)
+++ applications/editors/josm/i18n/replacetrans.pl	(revision 36409)
@@ -4,4 +4,5 @@
 use strict;
 use open qw/:std :encoding(utf8)/;
+use Encode;
 
 # call with pairs of strings, first the wrong string, second the replacement
@@ -11,20 +12,20 @@
 while(@ARGV)
 {
-  my $from = shift @ARGV;
-  my $to = shift @ARGV;
+  my $from = Encode::decode("utf-8", shift @ARGV);
+  my $to = Encode::decode("utf-8", shift @ARGV);
   $rep{$from} = $to;
   print "'$from' -> '$to'\n";
 }
 
-for my $po (reverse sort glob("po/*.po"))
+for my $po (reverse sort glob("po/fr.po"))
 {
   local $/;
   $/ = "\n\n";
-  open my $in,'<',$po or die;
+  open my $in,'<:encoding(utf-8)',$po or die;
   my $outpo = $po;
   $outpo =~ s/.*\///;
   open my $out,'>',$outpo or die;
   my $changed = 0;
-  
+
   for my $line (<$in>)
   {