perl 解码和压码use Encode

use Encode;
gbk->uft-8：
$line = encode("utf-8",decode("gbk",$line));
或
$line = encode_utf8(decode("gbk",$line));
utf-8->gbk：
$line = encode("gbk", decode("utf8", $line));
uft-8->gb2312：
$line = encode("gb2312", decode("utf8", $line));