http://www.perlmonks.org?node_id=1006277


in reply to change all occurances of string1 into string2

Too many curlies. toolic's advice is good, but you can safely remove even more:
s/$thing/$translate{$thing}/g;

[download]
Be careful, though, if one translation results in a word that another translation might translate again.
Sometimes, avoiding the inner loop by constructing the regex leads to a faster solution: 
my $re = join '|', keys %translate;
$re = qr/($re)/;

while (<>) {
    s/$re/$translate{$1}/g;
    print;
}

[download]
You might need to add some \b boundaries to the regex so it does not match in the middle of a word.
لսႽ† ᥲᥒ⚪⟊Ⴙᘓᖇ Ꮅᘓᖇ⎱ Ⴙᥲ𝇋ƙᘓᖇ

Replies are listed 'Best First'.
Re^2: change all occurances of string1 into string2
by tobyink (Canon) on Nov 29, 2012 at 16:10 UTC 
    my $re = join '|', map quotemeta, keys %translate;

    [download]
    perl -E'sub Monkey::do{say$_,for@_,do{($monkey=[caller(0)]->[3])=~s{::}{ }and$monkey}}"Monkey say"->Monkey::do'
[reply]
[d/l]

In Section Seekers of Perl Wisdom