$find = 's';
$replace = 'X';
$string = 'Snakes';
$string =~ s/$find$/$replace/;
print $string, "\n";