Help for this page

Select Code to Download


  1. or download this
    use String::Approx qw(amatch);
    
    ...
            print "Unmatched: $word <br />";
        }
    }
    
  2. or download this
    Sample output:
    Matched: aple to ??
    ...
    Matched: aple to Apple
    Matched: appe to Apple
    Matched: peay to Pear