RosettaCodeData/Task/Unicode-strings/Perl/unicode-strings-5.pl

open IN, "<:utf8", "file_utf";
open OUT, ">:raw", "file_byte";