Help for this page

Select Code to Download


  1. or download this
    sub compare {
      (($_[0] ^ $_[1]) =~ tr/\0//c) < 2;
    }