#!/usr/local/bin/perl

while ($inputline = <STDIN>) {
        $inputline =~ tr/0-9/ /c;
        $inputline =~ s/ +//g;
        @digits = split(//, $inputline);
        $total += @digits;
        $count = 1;
        while ($count <= @digits) {
                $dtotal[$digits[$count-1]] += 1;
                $count++;
        }
}
print ("Total number of digits found: $total\n");
print ("Breakdown:\n");
$count = 0;
while ($count <= 9) {
        if ($dtotal[$count] > 0) {
                print ("\tdigit $count: $dtotal[$count]\n");
        }
        $count++;
}
