redo if s/`I($z)/$1/;
  redo if s/``K($z)($z)/$1/;
  redo if s/```S($z)($z)($z)/``$1$3`$2$3/;
  ...