#!/usr/bin/perl
use strict;
use warnings;
use Text::Unaccent;

my $str = "Los-Cabos-Meliá";
#my $str = "This is a simple string";

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

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