ord(chr()) does nothing on integer, it's useless

lib/DDG/Goodie/Xor.pm

@@ -11,7 +11,7 @@ handle query_raw => sub {
     my @nums = grep(!/(xor|⊕)/, split(/\s+(⊕|xor)\s+/i, $_));
     my $num = 0;
     foreach (@nums) {
-        $num ^= ord(chr($_)) if /^\d+$/;
+        $num ^= $_ if /^\d+$/;
         return unless /^\d+$/;
     }
     return "$num" if $num;