use Encode qw(encode); use Win32::Codepage; my $w32encoding = Win32::Codepage::get_encoding(); # e.g. "cp936" my $encoding = $w32encoding ? Encode::resolve_alias($w32encoding) : ''; print $encoding ? encode($string, $encoding) : $string; #### use Encode; use Win32::Codepage; use strict; use diagnostics; my $encoding= Win32::Codepage::get_encoding(); my $str8=decode($encoding,"中国的网页");#$encoding has the value cp936; open OUT,">:utf8","D:\\output1.doc" or print "could not open"; print "\nIs ".encode("$encoding",$str8)." utf8 format : ",utf8::is_utf8($str8),"\n\n"; print OUT $str8."\n"; close OUT;