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