$str = 'aabbcc';
$str =~ s/a([^a]*)$/X$1/;
print "$str\n";

$str = 'aabbcc';
substr($str, rindex($str, 'a'), 1) = 'X';
print $str;
[download]