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;