my %mime_map = (
        'C4' => 'Ä',
        'D6' => 'Ö',
        'DC' => 'Ü',
        'E4' => 'ä',
        'F6' => 'ö',
        'FC' => 'ü',
        'DF' => 'ß',
        '3F' => '?',
        '3D' => '=',
        '5F' => '_'
);

sub beautify {
        my $subject = shift;
        $subject =~ s/^=\?iso-8859-1\?Q\?//i;
        $subject =~ s/\?=$//;
        $subject =~ s/_/ /g;
        foreach my $key (keys %mime_map) {
                $subject =~ s/=$key/$mime_map{$key}/g;
        }
        return $subject;
}
[download]