D:\>perl -lne "print /^(?:([0-8])(?!.*\1)){9}$/ ? 'ok' : 'not ok'"
123456780
ok
123123123
not ok
123456781
not ok
^Z