Select Code to Download

use String::Approx qw(amatch);

...
        print "Unmatched: $word <br />";
    }
}

Sample output:
Matched: aple to ??
...
Matched: aple to Apple
Matched: appe to Apple
Matched: peay to Pear