open FILE, 'c:\ldap_entries.txt';
 
	while(<FILE>){
	 chomp;
	  s/ //g;
	 s/:/ /g;
	 s/\(/ /g;
	 s/\)/ /g;
	 s/=/ /g;
	if(/orclNetDescString/){
	 
	$AA = $_;
	
	#print "$AA";
	}
	if(/PORT/){
	
	
	 
	 $AA1 = $_;
	 
	}
          if(/orclSid/){
           
          
           $AA2 = $_;
          # print "\n$AA$AA1$AA2\n";
           
           $AA3 = "\n$AA$AA1$AA2";
 
          push @LINE,$AA3;
          $server = $LINE[6];
          $port1 = $LINE[8];
          # Iwant to create TNSNames.txt based on a formatt
          #
          #alstrn = (DESCRIPTION =    (ADDRESS_LIST =     (ADDRESS = (PROTOCOL = TCP)(HOST = 10.194.146.184)(PORT = 1542))) (CONNECT_DATA =   (SERVICE_NAME = alstrn))) 
          #outt put to file $SID = (DESCRIPTION =    (ADDRESS_LIST =     (ADDRESS = (PROTOCOL = TCP)(HOST = $server)(PORT = $port1))) (CONNECT_DATA =   (SERVICE_NAME = $SID))) 
          #
     
       }
         
        
       }