output.txt

(Str)
4
e􏿽xCC􏿽x81

utf8-c8.p6

#!/usr/bin/env perl6

use v6;

my $out = open "test.txt", :w, :bin;

my $buf = Buf.new(0x65, 0xcc, 0x81, 0x0a);
$out.write: $buf;

my $in = open "test.txt", :enc<utf8-c8>;

my $s = $in.slurp-rest;

$s.WHAT.say;
$s.chars.say;
$s.say;