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\n";

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\n";

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