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