lib/Str/Rpl.ps1

using namespace Microsoft.VisualBasic
function Rpl-Sub($s,$sub,$by,$beg=1,$cnt=-1){[Strings]::Replace($s,$sub,$by,$beg,$cnt) }
function Rpl-QQ ($qqStr,$ay)                {$o=$qqStr;$ay|%{$o=Rpl-Sub $o '?' $_ -cnt 1}; $o}