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

my $tmp = chop $variable;
$variable .= $tmp eq $tofind ? $replacement : $tmp;

print $variable;