perl -pi.bak -e 's/^cn:(.+)\n$/cn: $1\nuid: $1\n/;' file.name