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