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

print ( $seq1 ^ $seq2 );;
§  §§  §§  §§  §

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