Select Code to Download

 $s = 'I have somwhat large articles of text (returned from a search),
+ what I\'d like to do is capture the word and X number of words befor
+e and after it while tagging the matching word in the captured text.'
+;;

print $s =~ m[ ( (?: \S+ \s+ ){3} X (?: \s+ \S+ ){3} ) ]x;;

the word and X number of words

#! perl -slw
use strict;
...
Is there a way to do this with a single regex? Is a regex even the bes
+t
way to do this? Thanks, -Lee

P:\test>junk me
weak spot for <me> and I've got
...
there a way <to> do this with
even the bestway <to> do this? Thanks,