Select Code to Download

my $saved = $_;
$_ = undef;
...
$_ = $saved;

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

$ perl -le '$x = 1; $r = \$x; local $x=2; print "$$r $x"'
1 2
$