#!/usr/bin/env perl -n
use 5.20.0;
use List::AllUtils qw/ sum /;
chomp;
my @n = split '';
say sum @n[ grep { $n[$_] == $n[($_+@n/2)%@n] } 0..$#n ]