$ perl -Mstrict -Mwarnings -E ' my @words = qw{door name dad naming}; for (@words) { s{(?<=na)m}{+d}; say; } ' door na+de dad na+ding