use strict;
use warnings;
use Encode qw( encode decode);
use 5.010;

# Byte Sequenz
my $cc = pack "CC", 195, 164;

# übernehme die Bytesequenz als utf8 kodierte Daten
# encode() ist hier falsch! Siehe auch: https://metacpan.org/pod/Encode#TERMINOLOGY + https://metacpan.org/pod/Encode#encode + https://metacpan.org/pod/Encode#decode
my $uu = decode('UTF-8', $cc);

# Schalte Ausgabekanal auf utf8
binmode(*STDOUT, 'utf8');

# Terminal auf utf8 schalten; weil dieser Test auf Windows gemacht wurde, gleich eingebaut
system("chcp 65001");

# Gebe das UTF8 Zeichen aus
say $uu;  # kein Müll