$ perl5.00404 -e '$/=\1; print "[$_]" while <>;'
abcd
0000
^D
[abcd
0000
]$