#!/usr/bin/perl
use strict;
use warnings;

my $fasta1 = 'GGGTATTCCTTCTCCACCTTGCAGCTAACATCAGTGTTTCGTCTACTCAAGCACGCCAAC';
my $fasta2 = 'ACGCCCTAGAGCGCCCTGTCCAGGGGATGGCAACCAACTCTGACCCTGCAAGTGCAGCAG';

my $matched = ($fasta1 ^ $fasta2) =~ tr/\0//;
my $non_match = length($fasta1) - $matched;

print "matched: $matched\n";
print "non_matched: $non_match\n";