use strict;
use warnings;

use utf8;

use Unicode::Normalize;

my $s = "söme stüff\n";
$s = NFD($s);

$s =~ s/\pM//g;
print $s;