#!/usr/bin/perl

use feature qw/say/;
use warnings;
use strict;

use Encode;

say decode('MIME-Header', "=?iso-8859-1?Q?=C3=BC =C3=B6 =C3=A4?=");