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