perl -le '$sum += $_ for map { split /0/ } 1 .. 9999; print $sum'
37359000