knoppix@Microknoppix:~$ perl -E '
$seq1 = q{AAAAACCCGGGTTTTTAAA};
$seq2 = q{AAAAACGGGTTTCCCAGAGA};
$same = $seq1 ^ $seq2;
push @posn, pos( $same ) while $same =~ m{(?=\x00)}g;
say for @posn;'
0
1
2
3
4
5
8
11
17
knoppix@Microknoppix:~$