{
  local $/ = ""; # set to empty string -- see perldoc perlvar

  while (<>) {
     if ( /(\ncn: (\S+))\n(\S+)/ ) {
        my ( $cnline, $cnval, $nexttag ) = ( $1, $2, $3 );
        if ( $nexttag ne "uid" ) {
           s/$cnline/$cnline\nuid: $cnval/;
        }
     } else {
        warn "Record $. has no cn value\n";
     }
     print;
  }
}