#!/usr/bin/perl

# https://perlmonks.org/?node_id=1228728

use strict;
use warnings;

# corpus is now a string instead of an array  FIXME for real filename
my $corpus = do { local (@ARGV, $/) = '/usr/share/dict/words'; <> };

# fake random input strings FIXME for real strings in @tomatch
my @tomatch = map { join '', map { ('a'..'z')[rand 26] } 1 .. 4 } 1 .. 1e2;

for my $string (@tomatch)
  {
  my @patterns;                                    # match <2 changes
  push @patterns, "$`.?$'" while $string =~ /\S/g; # changed or dropped char
  push @patterns, "$`.$'" while $string =~ /|/g;   # added char
  $string =~ /^(.+)es$/ && push @patterns, $1;     # singular
  my $fuzzyregex = do { local $" = '|'; qr/^(@patterns)$/m };

  $corpus =~ $fuzzyregex && printf "%35s : %s\n", $string, $1; # FIXME output
  }