use Encode;

my $russkiy = decode("mime-header", "=?UTF-8?B?0KDRg9GB0YHQutC40Lk=?=");