$ perl -le '
$str = q{yands};
substr( $str, 0, 1 ) = substr $str, -1, 1, substr $str, 0, 1;
print $str;'
sandy
$