sub dont_mess_pos { 
  my $vr=\$_[0]; 
  my $pos=pos($$vr); 
  my $s=$$vr; 
  $_[0]=42; 
  $$vr=$s;
  pos($$vr)=$pos 
}