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