perl 重复编码转换问题,没有影响

zjzc01:/root/big2# cat x1.pl 
$xx=$ARGV[0];
use Encode;
my $var=encode("gbk",decode("utf8","$ARGV[0]"));
my $var=encode("gbk",decode("utf8","$ARGV[0]"));
print "$var is $var
";


zjzc01:/root/big2# perl x1.pl '杩..璁″.?..JOB寮濮..琛.??.?.'
$var is 还款计划生成JOB开始执行结束……


zjzc01:/root/big2# cat x1.pl 
$xx=$ARGV[0];
use Encode;
my $var=encode("utf8",decode("gbk","$ARGV[0]"));
my $var=encode("utf8",decode("gbk","$ARGV[0]"));
print "$var is $var
";

zjzc01:/root/big2# perl x1.pl  '»¹¿»®ʺ³ȊOB¿ªʼִѐ½⋸¡­¡­'
$var is 还款计划生成JOB开始执行结束……