#!/usr/bin/perl -w

# use utf8;
use 5.030;
# use feature "unicode_strings";
# no warnings "experimental";

my @problematic = qw (á é í ó ú ü Á É Í Ó Ú Ü);

for my $letra (@problematic){
    print "-> ". $letra. ", $letra = " . letra_sin_acentos($letra), " <--- \n";
}
exit 0;

sub letra_sin_acentos {
    my $letter = $_[0];

    return $letter if ($letter =~ /[0-9a-zA-Z]/);
    
    for ($letter){
	if ($_ eq "á") {
	    return "a";
	}
	if ($_ eq "é") {
	    return "e";
	}
	if ($_ eq "í") {
	    return "i";
	}
	if ($_ eq "ó"){
	    return "o";
	}
	if ($_ eq "ú" || $_ eq "ü") {
	    return "u";
	}
	if ($_ eq "Á"){
	    return "A";
	}
	if ($_ eq "É"){
	    return "E";
	}
	if ($_ eq "Í"){
	    return "I";
	}
	if ($_ eq "Ó"){
	    return "O";
	}
	if ($_ eq "Ü" || $_ eq "Ú"){
	    return "U";
	}
#	default {
	    return $letter;
#	}
    }
}