local undef $/;

##</code><code>##

$ perl -wle'$_ = "x"; { local undef $_ } print'
Use of uninitialized value in print at -e line 1.

$ perl -wle'$_ = "x"; { undef local $_ } print'
x