program prob1
    implicit none
    character(len=3)::S, T
    integer::i, ans
    read(*,*) S, T
    ans = 0
    do i = 1, 3
        if(S(i:i) .eq. T(i:i)) then
            ans = ans + 1
        end if
    end do
    write(*,*) ans
    stop
end program