The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
#!/bin/tcsh
 
if ($#argv != 2) then
   echo "usage: $0 <aligned file 1> <aligned file 2>"
   exit 0
endif


lineindex < $1 > $1.li
lineindex < $2 > $2.li
paste -d" " $1.li $2.li