$string = 'ABC';
$search = qr/^(A)/;
$replace = '"$1Z"';
$string = s{$search}{
   my $replacement = eval($replace);
   die $@ if $@;
   $replacement
}eg;
say $string;