Select Code to Download

$words = "\b(directory|file|age|action)\b";
# A little more Perl-ish:
while (<>)
{
    print "Couldn't find $_\n" unless /$words/;
}