open(OUT,">C:\\data");
binmode(OUT, ":utf8");
while(<IN>)
  {
	chomp;chomp;
	unless(/\S/){next}
	$_=Encode::decode('UTF-8',$_);
	print OUT $_;
  }
close(IN);