my $hex = '0FB0306F207265616420746869733F'; my $sum; $sum += hex($_) for unpack('A2' x (length($hex) / 2), $hex); print $sum;