sub xor_it_together {
  my @ip = shift =~ /(\d+)/g;
  my $code = join'^',@ip;
  print eval "$code";
}
# xor_it_together('67.167.26.54') --> 200
# xor_it_together('127.0.0.1') --> 126