use Encode;

my $text = decode("UTF-8", "\xCE\xA9");

binmode STDOUT, ":utf8";
print $text;            # OK

open FH, ">:utf8", "myfile" or die $!;
print FH $text;         # OK