$|++; 
$/=\1; 
print "[$_]" while ($_=<>, $_)
__END___
abcd
[a][b][c][d][
]0000000000000