> perl -E'$_=2013;@h{split//}=();say 0+keys%h' 
4