The Perl Toolchain Summit 2025 Needs You: You can help 🙏 Learn more

BRIANDFOY / Unicode-Tussle-1.121 / script / nfd 

            

              
1
2
3
4
5
6
7
8
9
10
11
12

              
#!/usr/bin/env perl
use strict;
use 5.10.1;
use autodie;
use warnings qw[ FATAL all ];
use open     qw[ :std IO :utf8 ];
END { close STDOUT }
use Unicode::Normalize;
print NFD($_) while <>;