s#(?<!\\)((?:\\\\)*)\\n# '\\'x(length($1)/2) . "\n" #ge;
# or
s#(?<!\\)(\\*)\1\\n#$1\n#g;

##</code><code>##

s#\\([\\n])# $1 eq "n" ? "\n" : $1 #ge