perl -ni -e'print; if (/^cn:(.*)/) { my $uid = "uid:$1\n"; my $nl = <>; print $nl =~ /^uid:/ ? "": $uid, $nl}' foo.file