my $str = <>;
chomp ($str);

my @str = split(//, $str);

my $num;
my @numbers;

for my $word(@str){
    if($word =~ /[a-z]/){
        $num = 0;
    }else{
        push @numbers, $word;
    }
}

for my $numbers(@numbers){
    $num += $numbers
}

print "$num\n";