my $var1=pack 'H*','000080506300835700AD00EF';
my $var2=pack 'H*','042426FFFFFFFFFFDE00BE00';
my $result = $var1 ^ $var2;
print unpack 'H*',$result;
# 0424a6af9cff7ca8deadbeef