Select Code to Download

use Algorithm::Diff qw(diff sdiff LCS traverse_sequences);            
+          
my @seq1= split //,"1  AGCTGATCGAGCTAGTACCCTAGCTC 26";
...
    print "\n";
    
}

+ 1 5 

...
+ 30 4 
- 31 6 
+ 31 0