#!/usr/bin/perl -w
#
#  Split YANDS into SANDY

{
    my $string = 'YANDS';

    #  First approach ..

    my @chars = split ( //, $string );
    my $result = join ( '', $chars[-1], @chars[1..($#chars-1)], $chars[0] );

    print "1) $string -> $result\n";

    #  Second approach ..

    $result = join ( '', reverse ( $string =~ m/(.)(.+)(.)/ ) );

    print "2) $string -> $result\n";
}