$string =~ s/(\\.)|([\$\@])/$2 ? "\\$2" : $1/gse;
  $new = eval qq{qq{$string}};