##merge data after filtering
sub singlefile {
	my ( $file,$out) = @_;
	#open file
	open(FILE, $file) or die ("error occured while opening file");
	#create list from file
	my @save = <FILE>;
	close(FILE);
	#empty table rows which do not meet criteria
	foreach (@save){
		$_ = "" unless ($_ =~ m/"ENABLED","OLTP",/ && $_ =~m/^GREP/ );
		$_ = "" if ($_ =~m/SYSMAN/|| m/SYS/);
		chomp $_;
		
	}
	#open output file, add data, close
	open(FILE, ">>OLTP.txt") or die ("error occured while opening file OLTP.txt");
	foreach (@save){
		print FILE $_."\n" if ($_);
	}
	close(FILE);
}