#!/usr/bin/perl

print "content-type: text/html \n\n";


open MYINPUTFILE, "<projecta.txt";
my $holdTerminator = $/;
undef $/;
my $projectA = <MYINPUTFILE>;
$/ = $holdTerminator;
my @lines = split /$holdTerminator/, $projectA;
$projectA = "init";
$projectA = join $holdTerminator, @lines;
print $projectA;
print "\n";

open MYINPUTFILEE, "<projectb.txt";
my $holdTerminator1 = $/;
undef $/;
my $projectB = <MYINPUTFILEE>;
$/ = $holdTerminator1;
my @lines = split /$holdTerminator1/, $projectB;
$projectB = "init";
$projectB = join $holdTerminator1, @lines;
print $projectB;
print "\n";



$MatchCount = 0;




@sentencesA = split(/\./, $projectA);
print @sentencesA;

@sentencesB = split(/\./, $projectB);
print "\n";
print @sentencesB;

$arrLenA = scalar @sentencesA;
print $arrLenA;
print "\n";

$arrLenB = scalar @sentencesB;
print $arrLenB;
print "\n";


for ($z=0;$z<=$arrLenA;$z++){

    for ($i=0;$i<=$arrLenB;$i++){
   
        if ($sentencesA[$z] eq $sentencesB[$i]){
        	
            $MatchCount++;
        }
    }
}


print $MatchCount;
close(MYINPUTFILE);
close(MYINPUTFILEE);