Not the best general solution, but at least I don't have to write a nasty regex:

my $x = '\n';
my $string = '$x = "' . qq|$x| . '";';

eval $string;
print "->$x<-\n";
[download]

It's missing error handling and if $x contains any unescaped single quotes, it'll break. Still, it's another way to do it.