eval qq/my \$v\xE9/;
eval q/print $string; $string = "new value"/;
print $@ if $@;