perl -ne "print if m/^(.)..\1..\1..\1$/;" Words.knu