use strict;
use warnings;

use 5.010;

my $encoded = 'Subject: =?utf-8?Q?=C3=84=C3=96=C3=9C=C3=9F=C2=B5?='; # ist 'Subject: ÄÖÜßµ' als QP kodiert

use MIME::Words qw(decode_mimewords);
# Aus MIME Quotedprintable in eine Bytekette
my $decoded = decode_mimewords($encoded);

use Encode;
# die Bytekette ins Perl-String-Format zurück
$decoded = decode_utf8($decoded); 
# für die DOS-Konsole richtig als CP850 ausgeben
say encode('CP850',$decoded);

use HTML::Entities;
# als HTML Zeichen kodieren
say encode_entities($decoded);