my $tofind="s";
my $replacement="X";
my $variable="snaskes";

substr($variable, -1, 1) = $replacement if (substr($variable, -1, 1) eq $tofind);

print "$variable\n";