in reply to calculate matching words/sentence

STRING::APPROX Might be worth a try.

In Section Seekers of Perl Wisdom