- or download this
my $saved = $magical;
...
$magical = ...;
...
$magical = $saved
- or download this
sub dont_mess_pos {
my $vr=\$_[0];
...
$$vr=$s;
pos($$vr)=$pos
}
- or download this
DB<80> my $a="xxx";scalar ($a=~/x/g);print pos($a); tst $a; print $a
+,pos($a)
1xxx1