my $token = "__UNIQUE_TOKEN__";
  $token .= "_" while $str =~ /$token/;
  chomp (my $new_str = eval qq(<<"$token"\n$str\n$token));