perl - MEncode - pi - e ' $_=encode_utf8(decode(gb2312=>$_)) ' filename for f in `find .`; do [ -f $f ] && perl -MEncode -pi -e '$_=encode_utf8(decode(gb2312=>$_))' $f; done;