my $var= "hello, world";
for(  @{[ $var ]}  ) {  # Make a copy
    s/world/earth/;
    say;    # hello, earth
}
say $var;   # hello, world