Help for this page

Select Code to Download

Select or download this

$seq1 = 'ACGTACGTACGTACGT';;
$seq2 = 'TCGATCGATCGATCGA';;
...

print length( $seq1) - ( $seq1 ^ $seq2 ) =~ tr[\0][\0];;
8