my $LDIF;
unless (open ($LDIF, "<", $ldifFile)) {
  die "Error in reading '$ldifFile': $!\n";
}
else {
  local $/ = "\n\n"; # set input record separator to \n\n

  while (my $object = <$LDIF>) {
    chomp($object);
    $object =~ s/\n //g; # kill continuation lines
    print $object, "\n\n";
  } # while

  close ($LDIF);
} # else

##</code><code>##

perl -e "$/ = qq~\n\n~" -pe "s/\n /g" infile > outfile

##</code><code>##

perl -e '$/ = "\n\n"' -pe 's/\n /g' infile > outfile