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