#!/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";


##</code><code>##

unac_string: Invalid argument
Original : Los-Cabos-Meli
Use of uninitialized value $unaccented in concatenation (.) or string at remove_accent2.pl line 12.
Unaccent :