$x = 'abc de';
$x =~ m/ /g;

print "1=",pos $x;
{
    $orig_value = \$x;
    *x = \$tmp_new_value;
    print " 2=".pos $x;
#    ....;
    *x = $orig_value;
}
print " 3=".pos $$orig_value;
print " 4=".pos $x;

##</code><code>##

1=4 2= 3=4 4=4