perl -e'open FOO, "/dev/null"; use warnings; undef=~/bar/'

##</code><code>##

perl -e'open FOO, "/dev/null"; $x=scalar <FOO>; use warnings; $x=~/bar/'

##</code><code>##

perl -e'open FOO, "/dev/null"; use warnings; <FOO>=~/bar/'