perl -MString::Approx=amatch -le 'print "OK" if amatch("color", "colour")'
OK