$str='kklmn; $str=~ s/(?=(kkl))(?(1)\g1|mn)/***/g; print "$str\n"; ***mn [download]
In reply to Doing by global regex does not work as on debug by Anonymous Monk