s/(nce|nse)/${{nce=>nse=>nse=>nce=>}}{$1}/g #### %repl = (nce => 'nse', nse => 'nce'); foreach (...) { s/(nce|nse)/$repl{$1}/g; }