$string = 'ABC';
$search = qr/^(A)/;
$replace = '$1Z';
$string = s/$search/$replace/g;
say $string;