Select Code to Download

my $str = '7c9695cb23a71d851688cc0d7f8b1072';
my @nums = map {hex} split '', $str;
...
        last MAIN if $i < 0;
    }
}

use List::Util qw(sum);

...
=prints
231
=cut