和整数比较perl字符串