Re: reverse a string in place

[choroba]

Using substr and length:

my $s = "abcdefgh";
print "$s\n";
$s .= substr $s, length($s) - 2 * $_, 1 for 1 .. length($s) - 1;# Add 
+the reversed string.
substr $s, 0, length($s) / 2, q();                              # Remo
+ve the original string.
print "$s\n";