my $s='112233'; my $t='aabbcc'; my $x=hex($s)^hex($t); printf('%0x', $x);