Re^6: Interpolate into replacement with s//?

I can't seem to work out the quoting when the string is from elsewhere:

use 5.014000;
use Config::General;

my $conf = new Config::General({replace => 'Z\l$1Z'});

my $string = q/ABC/;
my $search = qr/^(A)/;
say $conf->{config}{replace};
my $replace = q/$conf->{config}{replace}/;
$string =~ s/$search/$replace/gee;
say $string;
[download]

gives:

Z\l$1Z
Z\l$1ZBC
[download]

I've tried all sorts of combinations of quoting and regexp flags but I can't seem to get it to work when $replace isn't explicitly assigned as in your example.

Comment on Re^6: Interpolate into replacement with s//? Select or Download Code

Replies are listed 'Best First'.
Re^7: Interpolate into replacement with s//? by ikegami (Patriarch) on Nov 14, 2011 at 19:15 UTC
`Z\l$1Z` is not `"Z\l$1Z"`. Please reread what I wrote.	[reply] [d/l] [select]
Re^8: Interpolate into replacement with s//? by philkime (Beadle) on Nov 23, 2011 at 13:29 UTC
I see that but how would you quote in my last example where the replacement comes from an external source? It's not so obvious in this case ...	[reply]
Re^9: Interpolate into replacement with s//? by ikegami (Patriarch) on Nov 23, 2011 at 17:26 UTC
I wouldn't. But what do you mean, it's not obvious? To concatenate quotes to a string, use the concatenation operator (`.`)!	[reply] [d/l]
Re^10: Interpolate into replacement with s//? by philkime (Beadle) on Nov 24, 2011 at 07:58 UTC
Re^11: Interpolate into replacement with s//? by ikegami (Patriarch) on Nov 24, 2011 at 08:01 UTC
Re^11: Interpolate into replacement with s//? by Anonymous Monk on Nov 24, 2011 at 08:06 UTC
Some notes below your chosen depth have not been shown here