Select Code to Download

my $i=1;
$i=~/(.)/;
...
    print "second: \$1 = $1\n";
}
print "after: \$1 = $1\n";

$i = 2
first:  $1 = 1
...
first:  $1 = 3
second: $1 = 3
after: $1 = 1