How do I replace a set of words in a file with another set in Perl?

server name="${server1}" host="abc.com"
server name="${server2}" host="webcs.com"
server name="${server5}" host="httpvcs1.com"
server name="${server6}" host="xyz.com"
server name="${server7}" host="msg.com"

perl -pie 's/serverd{1-3}/myword/g' loginOut.txt > loginOut1.txt

[% ... %]

s/server/myword/g;

server1 abcd
server2 bcde
server3 cdef
etc.

my %dict;
while(<DICTFILE>){
    /(S+)s+(S+)/;
    $dict{$1}={$2};
}

while(my $line = <>){
    foreach my $s (keys %dict){
        $line =~ s/$s/$dict{$s}/g;
    }
    print $line;
}

perl -pe "s/{server/{file/g" in.txt > out.txt

server name="${file1}" host="abc.com"
server name="${file2}" host="webcs.com"
server name="${file5}" host="httpvcs1.com"
server name="${file6}" host="xyz.com"
server name="${file7}" host="msg.com"

perl -pie 's/{server/myword/g' loginOut.txt > loginOut1.txt

$what = 'server'; # The word to be replaced
$with = 'file';   # Replacement
s/(?<=${)$what(?=[^}]*})/$with/g;