http://www.perlmonks.org?node_id=1012444


in reply to Golf for unique digits

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

[download]
Update: and -> &&. Thanks space_monk.
لսႽ† ᥲᥒ⚪⟊Ⴙᘓᖇ Ꮅᘓᖇ⎱ Ⴙᥲ𝇋ƙᘓᖇ

In Section Seekers of Perl Wisdom