s/${thing}/${translate}{${thing}}/g;
[download]

to:

   s/${thing}/$translate{${thing}}/g;
[download]

Thanks!

Thanks!

s/$thing/$translate{$thing}/g;
[download]

my $re = join '|', keys %translate;
$re = qr/($re)/;

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

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'

And of course, %translate is already declared and filled.

Where and how? It is not clear from your example and it is the key to the answer.ignore it, toolic and choroba gave the correct answer

Mr. Newb:

There's a bit of a problem in the code. It may or may not affect you though:

#!/usr/bin/perl
use strict;
use warnings;

my $orig="she sells sea shells down by the seashore\n";
my ($new1, $new2) = ($orig, $orig);

my %translate=(she=>'shore', shore=>'sell', sell=>'she');
$new1 =~ s/$_/$translate{$_}/g for keys %translate;
print $new1;
#print join(", ", keys %translate), "\n";

my $FOO='0000';
$translate{$_}=9999-$_ for 1..10;

$new2 =~ s/$_/$translate{$_}/g for keys %translate;
print $new2;
#print join(", ", keys %translate), "\n";

$ perl x.pl
she shes sea shells down by the seashe
shore shores sea shorells down by the seashore
[download]

Uncomment the two print statements to see why...

...roboticus

When your only tool is a hammer, all problems look like your thumb.