perl -e 'open(I,q/<:encoding(cp1256)/,shift);binmode STDOUT,q/:utf8/;print <I>' ifile > ofile