#!/usr/bin/perl
use Unicode::Normalize;
binmode(STDIN,':utf8');
while (my $stuff = NFC(<>)) {
$stuff =~ s/([\x{0080}-\x{fffd}])/sprintf('&#x%X;',ord($1))/sgoe;
print $stuff;
}
#!/usr/bin/perl
use Unicode::Normalize;
binmode(STDIN,':utf8');
while (my $stuff = NFC(<>)) {
$stuff =~ s/([\x{0080}-\x{fffd}])/sprintf('&#x%X;',ord($1))/sgoe;
print $stuff;
}