open (READ, "<:encoding(UCS2)", "z:/test.txt") or die "unable to open file";

foreach (<READ>) {
  print $_;
}