perl 两个字符串输出相同但是比较失败

今天写程序，遇到一个问题，有两个字符串用print输出来是一模一样，但是用eq匹配就是不成功。

sub login
{
        my @array = "";
        my $username = "";
        my $password = "";
        open($FILE_FD,"<:encoding(UTF-8)","/root/txt");
        my %user = ();  #保存所有用户名和密码键值对
        while($line = <$FILE_FD>)
        {       
                ($username,$password) = split(/ /,$line); 
                chomp($password);
                $user{$username} = $password;
        }       
        <strong>if( exists($user{$_[0]}))
        {       
            $temp = $user{$_[0]}^$random;
            if( ($temp cmp $passwd) ==0 )
            {       
                print "login successn";
                return 0;
            }       
        }</strong>       
        print "invalide name or passwordn";
        return 1;
}

最后几经周折才发现虽然打印出来的字符串看上去完全没有别的字符或者转义字符，但是确实是存在的。加上$temp =~ s/W//g;这一句之后代码运行通过。

顺便解释一下$temp =~ s/W//g;?s表示替换匹配的部分，W表示除过[0~9][A~Z][a~z]的字符，后面/表示替换为空，g表示全局出现的字符串。

第一次写东西。希望大家多改正改正。谢谢了！共同进步！

<span style="font-family:SimSun;">
</span>