正则表达式原来也可以计数的

比如，比较等长（已对齐）字符串中不同的字符数。
$a="attggc";
$b="tttgac";
print (($a^$b)=~y/\0//c);

y///函数不但有tr那样的功能，还可以返回匹配的次数。/c匹配指定模式的补集。