#!/usr/bin/env perl

use 5.18.0;
use warnings;
use utf8::all;

use Encode;
use Encode::DoubleEncodedUTF8;

my $bytes = "\321\201\321\202\321\200\321\203\320\272\321\202\321\203\321\200\320\260";

my $fixed = decode( "utf-8-de", $bytes );
say $fixed;