#!/usr/bin/perl
use strict;
use warnings;

my @words = qw{ door name dad naming };

print join ("\n", map { $_=~ s{(?<=na)m}{+d}; $_ } @words);

__END__

door
na+de
dad
na+ding