Select Code to Download

my %words;
++$words{$_} for /\w+/g;
...
   next if @$_ != grep $words{$_}, @$_;
   print("matched @$_\n");
}

my %next_words;
$next_words{$1} = $2;
...
   next if @$_ != grep defined($next_words{$_}), @$_;
   print(join(' ', map "$_ $next_words{$_}", @$_), "\n");
}