use List::Util qw(sum);

my $str = '7c9695cb23a71d851688cc0d7f8b1072';

print sum map {hex} split '', $str;
=prints
231
=cut