#!/usr/bin/perl -w

use strict "refs";

$nbChiffres = 0;

while ( $ligne = <STDIN> ) {
    @chars = split //, $ligne;
    for ($i = 0; $i <= $#chars; $i++) {
	if ("0" le $chars[$i] && $chars[$i] le "9") {
	    $nbChiffres += 1;
	}
    }
}
print "$nbChiffres\n";
