$ perl -le' my $string = "YANDS"; print reverse $string =~ /(.)(.*)(.)/; ' SANDY [download]
In reply to Re: Swap the characters by jwkrahn in thread Swap the characters by sandy1028