perl -ne "print if m/^..d..ent$/;" Words.knu