my $y = eval qq{"$x"};
[download]

but see my other post for a safer alternative.