$x = '\n';
$x =~ s/(?<!\\)\\n/\n/g;
print $x;