my $repl_str = join( '|', keys %replacements); $someText =~ s/($replstr)/%replacements{$1}/g;