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