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