If you always want the last letter, you could match:

$string =~ s/.$/X/;
## or
$letter = 'X';
$string =~ s/.$/$letter/;
[download]

As opposed to the substr use.