perl -E'$y=2013;$y=~/$_/&&$c++for 0..9;say$c'