Select Code to Download

#!/usr/bin/perl -w
use strict;
...
        print "( @$_[@l] )\n";
    }
}

 % perl diffN.pl
( 0 0 0 )
...
( - s a - - - y s - - - )
( j - a p h - y - - - - )
( - - a - - - - s k e d )

 % perl diffN.pl encyclopedia cyclops enclosure wikipedia cyclone wick
+ed lonely
( - - - 0 - 0 )
...
( w i - - c k - - - - - - - - - - - - - - e - - - - - - - - d )
( - - - - - - - - - - - - l o n - - - - - e l y - - - - - - - )
#             ^ ^ ^ ^ ^ ^  <   should merge  >  ^ ^ ^ ^ ^ ^ ^