Select Code to Download

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

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

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