Thx a lot. That should fix my problem !

-- Nice photos of naked perl sources here !

#!/usr/bin/perl 
use warnings; 
use strict; 
use Unicode::Normalize; 
use Encode; 
 
my $string = "+lsctzùïåé}";
print "$string\n";
$string = decode("windows-1250", $string);
$string = NFD($string);
$string =~ s/\pM//og;
print "$string\n";
[download]

Huh. When I had to do this recently, I used NFKD. I guess from codepage 1250 there's no difference between the two, but for codepage 1252, there is - NFKD squashes superscripted 2s and 3s to regular 2s and 3s, and changes "½" to "1/2".

Of course, whether or not such a squashing is desireable will depend on the application.

--
@/=map{[/./g]}qw/.h_nJ Xapou cets krht ele_ r_ra/;
map{y/X_/\n /;print}map{pop@$_}@/for@/
[download]

Ouch.

I mean, okay, munging the name of the letter is a cute hack, but there's a much, much easier way if you've got the Unicode::Normalize module available to you - just ask for the NFD or NFKD of the string, and then do a regular expression substitution to eliminate combining marks: s/\pM//g

--
@/=map{[/./g]}qw/.h_nJ Xapou cets krht ele_ r_ra/;
map{y/X_/\n /;print}map{pop@$_}@/for@/
[download]