#!/usr/bin/perl

my ($a, $b, $c) = qw (AAATGCCTT AAAAGCGTC AAAGGCGTC);
my $bits = ($a ^ $b) | ($b ^ $c);
my $c = $bits =~ tr/\0/\0/;

print "Similar: $c\n";