$ perl -le '
$str = q{yands};
$str = join q{}, ( split m{}, $str )[ -1, 1 .. length( $str ) - 2, 0 ];
print $str;'
sandy
$