$ echo "abc" | perl -E'$/ = undef; say defined(<>)||0 for 1..2;'
1
0

$ echo "abc" | perl -E'$/ = "\n"; say defined(<>)||0 for 1..2;'
1
0