#!perl -p @_=/./g;$_=(@_-8-map/(.).*\1/,/(?=(.{9}))/g)>0?Yes:No