program Hello;
uses crt;
var
word1,word2:string;
count,countdracula,number:integer;
input,output:text;

begin
assign(input,'DATA1.txt');
reset(input);
assign(output,'OUT1.txt');
rewrite(output);

for countdracula:= 1 to 5 do
begin
number:=0;
readln(input,word1);
readln(input,word2);

for count:= 1 to length(word1) do
begin
     if word1[count] = word2[count] then
     begin
     number:=number+1
     end;
end;
writeln(output,number);
end;


close(output);
end.