my $tmp;
my $old = \$_;
*_ = \$tmp;
...
*_ = \$old;