perl判断字符串相等