perl -le"%h=(), undef @h{split'',$_}, keys %h == 3 and print for '0000 +'..'9999'" [download]
In reply to Re^2: Find duplicate digits by BrowserUk in thread Find duplicate digits by Anonymous Monk