my @configFiles = <.\\*.conf>;
foreach(@configFiles) {
    open CONFIG_FILE, "<:via(File::BOM)", $_;
    while(<CONFIG_FILE>) {
        if(/^backup path\s*=/) {
            (undef, $backupPath) = split(/\s*=\s*/,$_);
        } elsif(/^activation code\s*=/) {
            (undef, $activationCode) = split(/\s*=\s*/,$_);
            print "activation code:  $activationCode\n";
        } elsif(/^directory\s*=/) {
            (undef, $searchDirectory) = split(/\s*=\s*/,$_);
        } elsif(/^file\s*=/) {
            (undef, $searchFilename) = split(/\s*=\s*/,$_);
        } elsif(/^failure pattern\s*=/) {
            my (undef, $pattern) = split(/\s*=\s*/,$_);
            push(@failurePatterns, $pattern);
        } elsif(/^warning pattern\s*=/) {
            my (undef, $pattern) = split(/\s*=\s*/,$_);
            push(@warningPatterns, $pattern);
        } elsif(/^file age\s*=/) {
            (undef, $fileAge) = split(/\s*=\s*/,$_);
        } elsif(/^date in file\s*=/) {
            (undef, $dateInFile) = split(/\s*=\s*/,$_);
        } elsif(/^start from\s*=/) {
            (undef, $startFrom) = split(/\s*=\s*/,$_);
        } elsif(/^stop line\s*=/) {
            (undef, $stopLine) = split(/\s*=\s*/,$_);
        } elsif(/^date pattern\s*=/) {
            (undef, $datePattern) = split(/\s*=\s*/,$_);
        } elsif(/^database\s*=/) {
            my (undef, $pattern) = split(/\s*=\s*/,$_);
            push(@dbList, $pattern);
        }
    }
}