In this case I would prefer this script:

#!/usr/bin/perl

while ($line = <>) {
chomp($line);
if ( $line =~ /^authpassword/ ) {
next;
} elsif ( $line =~ /^S+/) { ### this line is a “normal” or starting line
print “$complete_linen”;
$complete_line=$line;
} elsif ( $line =~ /^$/ ) { ### this line is blank
print “$complete_linen”;
$complete_line=”";
} elsif ( $line =~ /^s+(S.*)/ ) { ### this line is a continuation
$line =~ s/^s+//;
$complete_line=$complete_line . $line;
}
}

This script can be run in a pipe, like this:

# gzcat backup_ldif.gz | ./concat_ldif.pl

$cnt=0;
while ($line = <>) {
chomp($line);
if ( $line =~ /^authpassword/ ) {
next;
} elsif ( $line =~ /^S+/) { ### this line is a “normal” or starting line
$results[$cnt++] = $line;
} elsif ( $line =~ /^$/ ) { ### this line is blank
$results[$cnt++] = “”;
} elsif ( $line =~ /^s+(S.*)/ ) { ### this line is a continuation
$results[$cnt-1] = $results[$cnt-1] . $1;
}
}

for $i (0 .. $cnt) {
print “$results[$i]n”;
}

$cnt=0;
while ($line = <>) {
chomp($line);
if ( $line =~ /^authpassword/ ) {
next;
} elsif ( $line =~ /^S+/) { ### this line is a “normal” or starting line
$results[$cnt++] = $line;
} elsif ( $line =~ /^$/ ) { ### this line is blank
$results[$cnt++] = “”;
} elsif ( $line =~ /^s+(S.*)/ ) { ### this line is a continuation
$results[$cnt-1] = $results[$cnt-1] . $1;
}
}

for $i (0 .. $cnt) {
print “$results[$i]n”;
}

Please excuse my typos, I sent this from my iPhone.

I got this issue with dipassistant boostrap (line breaks) and incorrect changetype attribute

Thanks Dan !