#!/usr/bin/perl -l
use strict;
use warnings;
use Math::BigInt;

my $x = Math::BigInt->new("0x000080506300835700008050630083570000805063008357");
my $y = Math::BigInt->new("0x042426FFFFFFFFFF042426FFFFFFFFFF042426FFFFFFFFFF");

print $x->bxor($y)->as_hex();   # 0x424a6af9cff7ca80424a6af9cff7ca80424a6af9cff7ca8