$ perl5.00404 -we'$/="0"; print $l while ($l = <>)'
Value of <HANDLE> construct can be "0"; test with defined() at -e line 1.
foo000bar
foo0$