Select Code to Download

my $_ = '1';

...
} continue {}

print "after: \$1 = $1\n";

before: $1 = 1
$_ = 2
...
first:  $1 = 1
second: $1 = 1
after: $1 = 1