$_ = 'blah';
/(\w)/;
print "$1\n"; # prints: b
/(\d)/;
print "$1\n"; # still prints: b

{
    /(a)/;
    print "$1\n"; # prints: a
}

print "$1\n"; # prints: b