Select Code to Download

$word = qr[[a-zA-Z']+];;
$sep = qr[[ \t.,!?]+];;
...

print $para =~ $re;;
want to extract n words on either side of the match. I am sure modules
+ such as Plucene or KinoSearch already

$re = qr[((?:$word$sep){0,$n}\Q$match\E(?:$sep$word){0,$n})];;
$match = 'CPAN';;

print $para =~ m[$re];;
There probably is already a CPAN module for this, but I am stuck tryin
+g to figure