use v5.14;
my $string  =  q/ABC/;
my $search  = qr/^(A)/;
my $replace =  q/"Z\l$1Z"/;
$string =~ s/$search/$replace/gee;
say $string;