sub sanitize { my $string = shift; $string =~ s/[àáâãäå]/a/; $string =~ s/[ÀÁÂÃÄÅ]/A/; $string =~ s/ç/c/i; $string =~ s/[èéêë]/e/; $string =~ s/[ÈÉÊË]/E/; $string =~ s/[ìíîï]/i/; $string =~ s/[ÌÍÎÏ]/I/; $string =~ s/ñ/n/; $string =~ s/Ñ/N/; $string =~ s/[òóôõöø]/o/; $string =~ s/[ùúûü]/u/; $string =~ s/[ÙÚÛÜ]/U/; return($string); }