my $keep = '';
        foreach (@save){
            $_ = "" unless ($_ =~ m/"ENABLED","OLTP",/ && $_ =~m/^GREP/ );
            $_ = "" if ($_ =~m/SYSMAN/|| m/SYS/);
            if ($_) {
                $keep = $_;
                last;
            }
        }

        open(FILE, ">>OLTP.txt") or die ("error occured while opening file OLTP.txt");
        print FILE $keep if $keep;
        close(FILE);