#!/usr/bin/perl

$lines="";
open(FILE,"NT4.ldif") or die $!;
open(FILE_1,">NT4_1.ldif") or die $!;
select FILE_1;

while(<FILE>){
    if(/SAM_DATABASE_DOMAIN: MODIFY ENTITIES/i){
    last;
        }else{
        $lines.=$_;
        print "$_";
            }
}
close(FILE_1);

$lines="";
open(FILE_2,">NT4_2.ldif") or die $!;
select FILE_2;
while(<FILE>){
    if(/SAM_DATABASE_BUILTIN: ADD ENTITIES/i){
    last;
        }else{
        $lines.=$_;
        $_ =~ s{ou=groups,dc=examlpe,dc=domain,dc=com}{ou=groups,dc=examlpe,dc=domain,dc=com\nreplace: memberUid};
        print "$_";
        }
}
close(FILE_2);
close(FILE);