perl+字符串