open(my $MASTER,'<:encoding(UTF-16LE)', 'master.cfg');
open(my $CONFIG,'>:encoding(UTF-16LE)', 'new.cfg');

while ($line=<$MASTER>) {
	print $CONFIG $line;
}