$: cat tb.dat | perl tb.pl
01234
56789
01234
56789
01234
56789
0