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

print "$1\n"; # unitialized warning