#!usr/bin/perl-w
use strict;
my $a=AAATGCCTT;
my $b=AAAAGCGTC;
my $c=AAAGGCGTC;

$match=???
$nonmatch=???
perl code???

print"\n   No. of matched positions=$match.\n
       No. of non-matched positions=$nonmatch.\n";
exit;

##</code><code>##

No. of matched positions=3.
No. of non-matched positions=6.