DB<324> $str='kklmn'  # end quote added

  DB<325> $str=~ s/(?=(kkl))(?(1)\g1|mn)/***/g

  DB<326> print $str
***mn
  DB<327>