I wrote a script which reads an UTF8 File, extracts data, and writes out some more UTF8 files.

The strange thing is: The resulting files are broken. They seem to no longer be UTF8.

I boild the issue down to this small script which just pipes the input through:

#!/usr/bin/perl
use strict;
use warnings;

binmode(STDIN, ':utf8');
open my $out,'>:utf8','testfile.txt';
while (<>) {
  print $out $_;
}
close $out;
[download]

Having an input file containing

trallalala

äöüÄÖÜß

And calling my script with:

./encodingtrouble.pl input-encodingtrouble
[download]

The resulting output testfile.txt looks like shwn below (There seem to be some unprintable characters between the last Ãs)

trallalala

äöüÃÃÃÃ

When I do not open '>:utf8', the output looks correct, but I'm puzlled about what's going on here. What am I doing wrong? Where is my misunderstanding?