{
    my $saved = \$_;
    my $new;
    *_ = \$new;
    # ...
    *_ = $saved
  }