$str =~ s/^%q|([^%])%q/$1/g;