my $y = eval qq{"$x"}; [download]
but see my other post for a safer alternative.
In reply to Re^3: Escaping Wide Characters by ikegami in thread Escaping Wide Characters by mobiusinversion