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