my $logopen = open LOGFILE,"<:encoding(UCS-2)", $file;
local $/ = undef;
my $lines = <LOGFILE>;