怎样用perl实现文本预处理，求高手指点啊。救急。