$string = 'ABC';
  $chr65 = chr(65);
  $chr97 = chr(97);

  $string =~ s/$chr65/$chr97/;
  print "$string\n";

  #Input = 'ABC', Output = 'aBC'