(转载)substr:perl提取字符串