#!/usr/bin/perl

use strict;
use warnings;

use URI::Escape;
use Encode qw(from_to);

my $terms = "%22Celades%22+%22Aspectos+cl%C3%ADnicos+*+*+menopausia%22";

# uri_unescape($terms);
# should return:
#       "Celades"+"Aspectos+clínicos+*+*+menopausia"
# actually returns:
#       "Celades"+"Aspectos+clínicos+*+*+menopausia"

$_ = uri_unescape ($terms);
from_to ($_,"utf-8","iso-8859-1");
print $_,"\n";