@ECHO OFF
perl -ne "print if m/^%1$/;" Words.knu