use Net::LDAP::LDIF;
my $ldif = Net::LDAP::LDIF->new('nejms.txt', 'r', onerror=>'die');
while (!$ldif->eof) {
	my $entry = $ldif->read_entry;
	print $entry->get_value('cn'), "=",
		$entry->get_value('orclnetdescstring'), "\n";
}
$ldif->done;

##</code><code>##

$ perl -ne 'next if /^dn:|^\s*$/; s/^cn:\s*(.+)\n/$1/;
  s/^orclnetdescstring:\s*/=/; print' nejms.txt
common_name1=complex_address_line1
common_name2=complex_address_line2
common_name3=complex_address_line3