#!/usr/bin/env perl

use strict;
use warnings;

my $string = "ABC";
$string =~ s/\x{41}/\x{61}/g;
print $string, "\n"; # aBC