in reply to join program in one-liner
How about: perl -lne"@a[$i++].=$_;$i=0 if eof;END{print for @a}"
Update: fixed little cut and paste error