my $_ = '1';

/(.)/;

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

for (2..4) {
    print "\$_ = $_\n";
    print "first:  \$1 = $1\n";
    /(3)/;
    print "second: \$1 = $1\n";
} continue {}

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