Example of processing codepoint sequences in Perl 6

CodePointComparison.txt

doug$ cat z2.pl6
use v6;
my $s = "Zoé";
.chr.print for |$s.NFC, 10;
.chr.print for |$s.NFD, 10;
doug$ perl6 z2.pl6
Zoé
Zoé
perl6 z2.pl6 | perl6 -e '$*IN.encoding(<utf8>); my $z1 = $*IN.get; my $z2 = $*IN.get; say $z1 eq $z2'
True
perl6 z2.pl6 | perl6 -e '$*IN.encoding(<utf8-c8>); my $z1 = $*IN.get; my $z2 = $*IN.get; say $z1 eq $z2'
False

Paul Bennett on Facebook was asking about comparing two differently encoded Unicode strings in Perl 6.