use warnings;
use strict;

my $LDIF = 'c:/test/any.ldf'
my $csv = 'c:/test/any.csv'

open ("FILE1", $LDIF) || die "can't open $LDIF: $!";

local $/ = "\n\n";  # Set an empty newline as line separator
while (<$LDIF>) {
   my ($dn)    = /^dn: (.*)$/m;
   my ($samACCOUNTNAME) = /^samACCOUNTNAME: (.*)$/m;
   
}