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

我有一个字符串(比如字符串1)需要与其他字符串匹配(string2)
两个字符串都具有相同的长度,并且不区分大小写.

我想打印两个字符串之间的字符匹配数.

Eg: String 1: stranger
    String 2: strangem

     Match count = 7

我试过这个：

$string1 = "stranger";
$string2 = "strangem";
my $count = $string1 =~ m/string2/ig;

print "$count\n";

任何形式的帮助表示赞赏.提前致谢！！

解决方法

独占或者,然后计算nul字符(字符串相同)：

my $string1 = "stranger";
my $string2 = "strangem";
my $count = ( lc $string1 ^ lc $string2 ) =~ tr/\0//;

print "$count\n";

更新：错过了“不区分大小写”位.