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