gistfile1.txt

use Text::Levenshtein::Damerau 'edistance';

my $text = qq{
    Linen Finish Cards
    I'd like to be able to order higher-quality card stock options, namely linen stock, similar to many playing card brands.
};

my @text = split m/\s+/, $text;

for my $word1 (@text) {
    for my $word2 (qw/smaller hex tiles/) {
        my $distance = edistance($word1, $word2);
        print "$word1 -> $word2: ", edistance($word1, $word2), "\n" if $distance <= 2;
    }
}

# be -> hex: 2