--- /usr/bin/sa-compile	2018-10-01 08:44:58.000000000 +0200
+++ /root/sa-compile-new	2019-05-09 13:03:18.248787745 +0200
@@ -391,6 +391,8 @@
     open(my $re, ">scanner${numscans}.re")
       or die "cannot create scanner${numscans}.re: $!";
 
+    binmode($re, "encoding(UTF-8)"); 
+
     print $re <<EOT  or die "error writing: $!";
 #define NULL            ((char*) 0)
 #define YYCTYPE         unsigned char