my $newstr = eval "qq{$str}";