22:27 >perl 1501_SoPW.pl
Matched:   aple to: Apple
Matched:   appe to: Apple
Matched:   peay to: Pear
Matched:   range to: Orange
Matched:   oranges to: Orange
Unmatched: mango
Matched:   appple to: Apple
Unmatched: aqqple

22:27 >