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