http://www.perlmonks.org?node_id=1025136


in reply to reverse a string in place

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

[download]
package Cow { use Moo; has name => (is => 'lazy', default => sub { 'Mooington' }) } say Cow->new->name

In Section Seekers of Perl Wisdom