Re^2: Uer Perl Variable in file

in reply to Re: Uer Perl Variable in file
in thread Uer Perl Variable in txt file

Or even

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

my %replace = (name => 'Joe',
               fun  => 'a game');
my $search_for = join '|', map quotemeta, keys %replace;
while (<DATA>) {
    s/\$($search_for)/$replace{$1}/g;
    print;
}
[download]

I avoid nested loops where possible.

Perl 6 - the future is here, just unevenly distributed

In Section Seekers of Perl Wisdom