Select Code to Download

$y = 2013;
($y = join('',sort(split(//,$y)))) =~ tr/0-9//s;
print "unique digits: " .  length($y) . $/;