perl substr()函数例子，substr()函数实例代码 – 返回EXPR的子字符串，起始是为字符串内的偏移量OFFSET。
语法：
substr EXPR, OFFSET, LEN, REPLACEMENT
substr EXPR, OFFSET, LEN
substr EXPR, OFFSET
定义和用法
返回EXPR的子字符串，起始是为字符串内的偏移量OFFSET。如果OFFSET为负，开始有很多的字符结尾的字符串。如果LEN指定，返回的字节数，或所有的字节，直到结束的字符串(如果
