use strict;
open (OUT, ">c:\\temp\\test.doc");
select OUT;
my $string = "Thu'a quư v\1ECB ngu'̣'i Viêt, quư v\1ECB là thành phân";

#use Unicode::String qw(utf8);

#my $record_ref = utf8("$_");
#my $record = $record_ref->utf8;
#print $record;

use Encode qw(decode);

my $utf8_data = decode("UTF-16", $string);
print $utf8_data;


close OUT;
select STDOUT;
print "Finished";