Index: applications/editors/josm/i18n/replacetrans.pl
===================================================================
--- applications/editors/josm/i18n/replacetrans.pl	(revision 36398)
+++ applications/editors/josm/i18n/replacetrans.pl	(revision 36398)
@@ -0,0 +1,43 @@
+#! /usr/bin/perl -w
+
+use utf8;
+use strict;
+use open qw/:std :encoding(utf8)/;
+
+# call with pairs of strings, first the wrong string, second the replacement
+# strings must be escaped like in the po-file
+
+my %rep;
+while(@ARGV)
+{
+  my $from = shift @ARGV;
+  my $to = shift @ARGV;
+  $rep{$from} = $to;
+}
+
+for my $po (reverse sort glob("po/*.po"))
+{
+  local $/;
+  $/ = "\n\n";
+  open my $in,'<',$po or die;
+  my $outpo = $po;
+  $outpo =~ s/.*\///;
+  open my $out,'>',$outpo or die;
+  my $changed = 0;
+  
+  for my $line (<$in>)
+  {
+    $line =~ s/"\n"//g;
+    print $out $line if $line =~ /msgid ""\nmsgstr/;
+    for my $f (keys %rep)
+    {
+      if($line =~ s/msgid "\Q$f\E"\nmsgstr/msgid "$rep{$f}"\nmsgstr/ && $line !~ /msgstr ""/)
+      {
+        print $out $line;
+        ++$changed;
+      }
+    }
+  }
+  close($out);
+  unlink($outpo) if !$changed;
+}