in reply to Golf for unique digits

perl -E'$_="2013";/(.)(?=.*\1)(?{++$%})(?!)/||say+y+++c-$%'

In Section Seekers of Perl Wisdom