use Encode qw( decode );
decode('MIME-Header', $s)