$str =~ s/%q//g;