in reply to Re: join program in one-linerin thread join program in one-liner
I forgot the -l ...
perl -lne 'push@{($|?"_0":"_1")},$_;eof&&$|++;END{$,=$?||map{print$_1[$-++],$_} + @_0}' file1 file2 [download]