Re: replace a character based on rule file

[karlgoethebier]

in reply to replace a character based on rule file

TWTOWTDI:

#!/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

See map

Best regards, Karl