{open(my $F, ">:encoding(UTF-8)", $f) or die "Cannot open $f";
  say {$F} $s;
 }