#!/usr/bin/perl
use strict;
use warnings;
use Text::Unaccent::PurePerl qw (unac_string);
use URI::Escape;

my $str = "Los-Cabos-Meliá";
#my $str = "This is a simple string";
#my $str = "Zo%C3%ABtry-Casa-del-   (Mar)  -Los-Cabos";
#my $str = "http%3A%2F%2Fwww.travelnow.com%2Fvtours%2F281578.xml";
#my $unescaped = uri_unescape($str);
#my $unaccented = unac_string('UTF-8',$unescaped);

my $unaccented = unac_string('UTF-8',$str);

print "Original : ".$str."\n";
#print "Unescape : ".$unescaped."\n";
print "Unaccent : ".$unaccented."\n";

##</code><code>##

Original : Los-Cabos-Meli
Unaccent : Los-Cabos-Meli&#65533;