open IN, '<:raw:encoding(UTF-16LE)', $ARGV[ 0 ];
open OUT, '>:raw:encoding(UTF-16LE)', $ARGV[ 0 ] . '.modified';