Select Code to Download

# while not EOF keep going
while ( <DATA> ) {
...
        $foundCount++; # increment total found words
    }
}

push @found, "\nError in line $lineCount of file $file occurence of \"
+$word\" :\n\t@words\n";

# read in all the keywords from the configFile and put all the words i
+nto a hash
%regex = map { $_ => qr/$_/ } init_keywords ($ConfigFile);
...

# init_keywords just returns an array of keywords all in lower case.
 ....

%regex = map { $_ => qr/$_/i } init_keywords ($ConfigFile);