使用Perl，如何在搜索结果中显示搜索词周围的上下文？

I am writing a Perl script that is searching for a term in large portions of text. What I would like to display back to the user is a small subset of the text around the search term, so the user can have context of where this search term is used. Google search results are a good example of what I am trying to accomplish, where the context of your search term is displayed under the title of the link.I am writing a Perl script that is searching fo