>perl -wMstrict -le "my $seq1 = 'AATGGGATCTAATTAAACTAAAGAGCTTCTGCACAGCAAAAGAAACTACCATC'; my $seq2 = 'AATGGGATCTAATTAAACTCAAGAGCTTCTGCACAGCAAAAGAAACTACCATC'; my $diff = $seq1 ^ $seq2; $diff =~ tr{\x00-\xff}{.*}; print $seq1; print $seq2; print $diff; " AATGGGATCTAATTAAACTAAAGAGCTTCTGCACAGCAAAAGAAACTACCATC AATGGGATCTAATTAAACTCAAGAGCTTCTGCACAGCAAAAGAAACTACCATC ...................*.................................