my $filename = "C:\\TEMP\\PT_TEST_STAT_EXP_export.log";
open my $fh, '<:encoding(UTF-16LE)', $filename
    or die "Couldn't read '$filename': $! / $^E";
while (<$fh>) {
    ...
};