my $text = "\xCE\xA9";

print $text;            # OK

open FH, ">", "myfile" or die $!;  # no PerlIO encoding layer
print FH $text;         # OK