perl函数substr应用