my $newstr = eval "\"$str\"";