Re: Regular expression "replace string interpolation" problem

This should work:

...
my $replace = '"$1 Perl"';

$text2 =~ s/$match/$replace/ee;
[download]

Or you might want to write it like this:

my $replace = '$1 Perl'; # use original setting of $replace

$text2 =~ s/$match/'"'.$replace.'"'/ee;
[download]

Probably even a better solution would be write $replace as a subroutine:


my $replace = sub { "$1 Perl" };

$text2 =~ s/$match/$replace->()/e;
[download]

and then only level of evaluation is needed.