用PERL(或其他)语言采用正则表达式检索出文本中包含特定串的句子,并对齐输出