#!/usr/bin/perl

while (defined($file = readdir BIN))  {
if (($file=~m/test.txt/)){
					open FILE,$file;
                                	my @lines=<FILE>;
                                       	for $line (@lines){
					if ($line=~/cn=/) {
							   print "\n";
							   print "$line";
							   print "changetype: modify"."\n";
							   print "delete: my_attr1"."\n";
							}
					elsif (($line=~/^my_attr1/)&& ($line=~/<order>1<\/order>/)){
						           print "$line";
									}
}
}
}
close(FILE);
closedir(BIN);