…sh @dict, $1 if ($l =~ /: ([^,]+), /); } close $fhdict; ### words: scalar @dict reverse @dict; }; @words = map { quotemeta } @words; memoize('split_by_word'); sub split_by_word { my($sentence) = @_; my @r; foreach my $re (@words){ if ($sent…