$string = 'Snakes';
$string =~ s/s$/X/;

##</code><code>##

substr($string,-1,1,'X');