1 while ($a=~s/^((?:.*?$chr){$n})(.*?)$chr/$1$2$rep/);