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