$str='kklmn;
$str=~ s/(?=(kkl))(?(1)\g1|mn)/***/g;
print "$str\n";

***mn