in reply to Re^2: join program in one-liner
in thread join program in one-liner

And $.=0if eof can be changed:
#        1         2         3         4
#234567890123456789012345678901234567890123
perl -lne'$a[$.].=$_;$.*=!eof}{print for@a'

[download]

In Section Obfuscated Code