my $string = "abcdefghi";
$string =~ s/(.)/substr($string, length($string)-pos($string)-1, 1)/eg;
print $string, "\n";