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