Ah! You're functioning better than I am:). This seems to work for me. Let me know if it works for you.

#!/usr/bin/perl -l

use strict;
use warnings;
use Encode;
require Encode::Detect;
use Text::Unaccent::PurePerl qw(unac_string);
use URI::Escape::XS qw/uri_escape uri_unescape/;

my $str  = "Los-Cabos-Meli\303\241";
my $safe = uri_escape($str, "\303\241");
$str = uri_unescape($safe);

my $utf8 = decode('Detect', $str);
binmode STDOUT, ":encoding(UTF-8)";
print "Origninal: $utf8";

my $unaccented = unac_string($utf8);
print "Unaccented: $unaccented";
[download]