sub foo { local $_ = shift; /foo/; }