perl中字符串之间的字符匹配计数

I have a string (say string 1) that needs to be matched to other string(string2) Both the strings will have same length and are case in-sensitive.I have a string (say string 1) that needs to be