#!/usr/bin/perl

use strict;
use warnings;

my ($log_qfn) = $ARGV[0]
   or die("usage");

# Encode output.
# Use the encoding that's appropriate for you.
binmode STDOUT, ':encoding(UTF-8)';

my $lines;
{
   # Decode input.
   open my $log_fh, "<:encoding(UCS-2le)", $log_qfn
      or die($!);
   local $/ = undef;
   $lines = <$log_fh>;
   $lines =~ s/\x{FEFF}//g;
}

print(length($lines), "\n");
print($lines);