E:\>perl
$|=1;
$/=\1;
print "[$_]" while <>;
__END__
abcd
[a][b][c][d][
]0000000000000
[0][0][0][0][0][0][0][0][0][0][0][0][0][
]^Z