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