my $File = 'X:\TestData.txt';
my @FileData = do { local(*ARGV); @ARGV=$File; <> };
map {Encode::encode("utf-8", $_)} @FileData;  
WriteFile('X:\Test.txt', @FileData);