if(-e $ERRORLOG) {
	print LOG "$FORMATTEDTIME   Able to open the CaseError.log file.\n";
	my @string = ('FOO', 'BAR');
	my @logfile = ('FOOLOG', 'BARLOG');
	my @logfh;
	
	open(IN, "<$ERRORLOG") or print LOG "$FORMATTEDTIME   Cant open the Error.log file. 	\n";
		for my $i (0..$#logfile) {
    open ($logfh[$i], '>', $logfile[$i]) or die "Couldn't create logfile!\n";
		local $/ = '';  
			while (my $paragraph = <IN>) {
			  for my $i (0..$#string) {
					if ( index($paragraph, $string[$i]) >= 0) {
			       print {$logfh[$i]} $paragraph;
 			    }
 				}
			}
		close IN;
		foreach my $fh (@logfh) {
		    close $fh;
		}
 	}
 }