my @terms = split //, $input;
my $sum = 0;
for my $i (0 .. @terms-1) {
    $sum += $values[$i] if $terms[$i] ne '?';
}
print "$input = $sum\n";