# zeichenweise
my $x = "abCDe";
my $y = join('', reverse split //, $x);
print "zeichenweise: $y\n";

# blockweise
$y = join('', reverse split /(..)/, $x); # verbesserungsfähig
print "blockweise: $y\n";