#!/usr/bin/perl -l 

use strict;
use warnings;
use Text::Unaccent::PurePerl qw(unac_string);
use Encode;
require Encode::Detect;

my $str  = "Los-Cabos-Meli\u00e1";
my $utf8 = decode('Detect', $str);
binmode STDOUT, ":encoding(UTF-8)";
print "Original : $utf8";

my $unaccented = unac_string($utf8);
print "Unaccent : $unaccented";