Help for this page
use List::Util qw( sum ); my $input = '000181080002020202020202'; ... printf "hex of %d: %X\n", $xored_sum, $xored_sum; __END__ hex of 103: 67