Select Code to Download

# assuming you stored all matches in @words
my %word_context;
for (1 .. $#words-1){
   push @{$word_context{$words[$_]}, [$words[$_ - 1], $words[$_ + 1]];
}