Select Code to Download

use strict;
use warnings;
...

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

use strict;
use warnings;
...
$s =~ s/\x{308}//g;
$s = NFC($s);
print $s;