my $text = "\xCE\xA9";  # Omega, UTF-8 encoded

print $text;            # prints OK

open FH, ">:utf8", "myfile" or die $!;
print FH $text;         # wrong: C3 8E C2 A9