#!/usr/bin/perl

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

my $str = "=C3=9C =C3=9F";

say decode('MIME-Header', "=?iso-8859-1?Q?" . $str . "?=");